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Preface 


A rcade Games For The Commodore 64 has been 
created for the C-64 owner who enjoys playing 
computer games and wants to learn more about the 
"magic" that makes them work. We have provided fifteen 
games which demonstrate the power of the Commodore 
64 home computer. The games utilize most of the fea¬ 
tures of the C-64, including color, sound, music, ani¬ 
mated character and sprite graphics, multicolored 
characters and sprites, and redefined characters. Some of 
the games produce multivoice sound effects. Some use 
more than thirty sprites! All offer colorful, animated fun. 

All the games are written in BASIC and annotated 
with enough programming detail that you will be able to 
explore and experiment with many aspects of the pro¬ 
grams. Even if you do not have a complete understanding 
of the BASIC language or any previous programming 
experience, you can exercise your own creativity by 
changing the games, using the modification hints given. 
You may find this to be even more fun than playing them! 

For each game, in addition to play instructions and 
program listings, we have included a discussion of some 
of the programming techniques used in the game's crea¬ 
tion. The explanation should satisfy a non-programmer's 
curiosity, or point out topics for further study by readers 
who want to program games themselves. 

Our intent was to present enough information that 
you will feel you understand the general method by 
which the programmer achieved a certain result. If you 
wish to achieve the same result in a program of your own, 
studying our program as an example will be helpful. You 
will probably need to refer to other texts, however, to 



obtain all the information you need. In many cases, we 
provide specific references for additional details. 

Because we wanted to create games which would 
exploit the power of the Commodore 64 computer and be 
fun to play, each game program is elaborate and contains 
many different tricks and techniques. An attempt to thor¬ 
oughly describe just one program could fill a book. The 
"Programmer's Notes" for each game highlight just one or 
two game programming topics. If you examine the pro¬ 
grams in detail, you will uncover many more techniques 
which you might wish to study further. 

Though we have made our explanations as clear as 
possible, you may find them easier to understand if you 
have some familiarity with the Commodore 64 User's 
Guide which came with your computer. In fact, we have 
often made reference to that guide for further details on 
topics which were beyond the scope of this book. 

Whether you are a game player, a programming 
enthusiast, or just someone curious about computers, 
reading this book and looking over the program listings 
should give you a general understanding of the structure 
of a game program and some methods by which program¬ 
mers achieve the effects which make games fun. 

In addition to many hours of entertainment, we 
hope our games provide you with a learning experience 
as you discover how the various programmers have 
taken advantage of the Commodore 64's special features 
to implement their game ideas. 


Mary Ann Chapman and David Harper 
Fanfare House, Inc. 
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Introduction 


T he games in this collection are all "arcade-style", 
requiring skill, coordination and strategy to 
achieve high scores. In order for you to understand and 
modify the game programs, we chose to write them in 
BASIC, which is the language most commonly used by 
Commodore 64 owners. 

Although BASIC is simple to demonstrate and 
understand, it does not result in extremely fast-running 
programs. As a result, the games do not have quite the 
lightning speed found in true arcade games, which are 
generally written in faster languages, but they are still 
fun to play. The methods used to achieve the "arcade" 
effects are the same as those used in the faster games. 

Our programmers have created games with every¬ 
thing from squirrels to space ships, including helicopters, 
hot-air balloons, ghosts, aliens and robots. You will be 
playing a pinball game, pitting out firecrackers, storing 
nuts for the winter, and trying to rescue, capture or 
escape from all sorts of strange creatures. There are two 
games that simulate sports: one is a "pong" or handball- 
type game, while the other is similar to football, for two 
players. 


Playing the Games 

Loading and Running the Games 

All games are loaded and run in the same way. Place the 
disk which came with this book into your disk drive. Be 
sure it is inserted correctly, with the label side facing up 
and the edge farthest away from the label inserted first. 




Consult your disk drive user's manual if you need more 
assistance. 

If you wish to display a list of all the game programs 
on the disk, type LOAD"$",8 and press the RETURN 
key. This loads the disk's program directory into the 
C-64's memory. When the computer displays READY, 
type LIST and press the RETURN key, to see the direc¬ 
tory of programs. 

To run a particular game, determine the exact name 
of the game from either the disk directory or the descrip¬ 
tion of the game in the book. Type LOAD"game 
name", 8 and press the RETURN key. After a delay of 15 
seconds or more, depending on the size of the game, the 
computer will display READY. This indicates that the 
game has been found and loaded into the C-64's memory 
and is ready to be played. Type RUN and press the 
RETURN key, and the game's title screen will appear. 
Further instructions on how to play are in the description 
for each game. 

For example, one of the games is called Ghost 
Hunt. To load this game, type LOAD"GHOST 
HUNT",8 and press the RETURN key. Note: The space 
between GHOST and HUNT is part of the name and must 
be included, or the computer won't find the game on the 
disk. 

Some of the games actually consist of two programs. 
To play a two-part game, you load and run one program, 
and that program automatically loads and runs the other. 
The second program always has a name beginning with 
&&. For example, the game called Firecracker Boy actu¬ 
ally consists of the programs FIRECRACKER BOY and 
&& FIRECRACKER. If you attempt to load and run && 
FIRECRACKER, it will run but it may not work cor¬ 
rectly, and the game's characters will have a very strange 
appearance. 

How to Stop a Game 

When you are finished with one game and want to play a 
different one, you must stop the first game and get the 
computer ready to accept a new LOAD instruction. 

Most of the games can be stopped by pressing and 
holding down the RUN/STOP key and then pressing the 
RESTORE key. The C-64 will respond by displaying 
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READY, meaning that it is ready for a new command. 
You may then load and run a different game or run the 
same one again by typing RUN and pressing RETURN. 
Even after pressing RUN/STOP and RESTORE, the 
original game is still in the computer's memory. 

Games which use memory bank switching tech¬ 
niques (which will be discussed later) cannot be stopped 
quite so easily. The descriptions of those games direct 
you to this section for instructions on stopping them. 

In those games, pressing RUN/STOP and 
RESTORE will cause the computer to behave very 
strangely. Instead, use the following procedures: Press 
RUN/STOP. Type RUN20000 and press the RETURN 
key. Then press and hold down RUN/STOP and press 
RESTORE. The computer will then say READY, and 
you can load and run another game, or type RUN and 
press RETURN to run the same game again. 

Ordinarily these procedures will be sufficient to 
stop a game, load another one, and run it. However, due 
to memory manipulation techniques used in some 
games, you may occasionally have difficulty starting the 
next game. If that occurs, or if you want to stop a game 
and get the computer back to READY without going 
through the procedures above, simply turn the computer 
off and on again. This will completely clear the C-64's 
memory. Then load the game you want to play. 

Joysticks* Many of the games are played with one 
joystick. For those games, plug a joystick into control port 
2 on the right-hand side of the Commodore 64, next to the 
ON/OFF switch. One game, Sound the Whistle, is 
played by two people and requires two joysticks, one 
plugged into each control port. Be sure you hold the 
joystick in the proper position. 


Sound. All of the games are spiced with interesting 
sounds as they are played. Adjust the volume on your 
television or monitor to a comfortable level so that the 
sound effects will add to your enjoyment of the games. Of 
course, if someone in the room doesn't share your appre¬ 
ciation for electronic game sounds, you can turn the 
volume off completely. 



Information provided for each game 

The initial section of information on each game explains 
the basic idea of the game, describes the scene, intro¬ 
duces the characters, and explains how to load and play 
the game. You may wish to readjust that section and then 
play the game, before proceeding to the program docu¬ 
mentation which follows. 

In the Programmer's Notes, the programmer of the 
game explains some of the methods used to make the 
game work as it does. Often this section includes a 
description of a programming challenge inherent to the 
game design, and how it was solved. Our programmers 
have used many techniques, only some of which are 
explained. If you carefully examine the program lis tin gs, 
you will uncover and begin to understand other tech¬ 
niques that can be useful if you start writing your own 
programs. 

Hints for Modifying the Game include both simple 
changes which you can make to adjust the speed or 
difficulty of the game, and general suggestions for more 
complex modifications. As you play the games, other 
ideas may occur to you. When you begin to implement 
your own ideas, you will see how really creative the 
programming process can be! 

Under Major Routines, you will find a synopsis, by 
line number, of the major functions of the game program. 
The significant variables used in the program are listed in 
the Major Variables section, along with a brief descrip¬ 
tion of their use. Both of these sections will aid your 
understanding of how the program works. 

For each game which uses sprites, a Sprites section 
provides information for each sprite used. The Line 
Number column, next to the description of a particular 
sprite, indicates the line numbers in the program where 
the DATA statements for that sprite may be found. The 
location in memory where each sprite is stored is repre¬ 
sented by the number under the Page heading. 

Each game which uses redefined characters has a 
Characters section which provides information for each 
redefined or custom character used. The Line Numbers 



column, next to the description of a particular character, 
indicates the line numbers in the program where DATA 
statements used for the redefinition may be found. 

Sprites 

The sprite feature is the C-64's way of handling special 
shapes which are to be moved around on the screen. By 
creating moving objects as sprites, a programmer greatly 
simplifies the programming required to produce a game 
on the C-64. 

Sprites are explained in Chapter 6 of the Commodore 
64 User's Guide. Because this powerful feature is used 
extensively in most of the games in this book, a little 
further explanation here may be helpful. If your interest 
in technical details is minimal, this discussion is not 
essential to your understanding of the rest of the Intro¬ 
duction and the game descriptions. 

To create a sprite, the programmer includes data in 
the program to tell the computer what size, shape, and 
color the sprite is to be and where it is to be located on the 
screen at any particular moment. The computer then 
automatically handles many functions that otherwise 
would require extensive programming. 

The computer's VIC (Video Interface Controller) 
chip uses the programmer's data to display the sprite on 
the screen with the desired color, shape and size. By 
continuously redisplaying it at locations specified by the 
programmer, the VIC chip makes the sprite appear to 
move around. The VIC chip also detects collisions when 
the sprite is in the same place on the screen as another 
sprite or a background character. 

The data which specifies the sprite's shape is usually 
coded into DATA statements in the program. With 
instructions which are executed very early when the 
program begins running, the sprite shape data is moved 
into an area of memory outside the program, where it is 
accessed later by the VIC chip. 

The C-64's memory contains 64 Kilobytes of storage 
(IK = 1024 bytes or characters). It is organized into 
"banks" of 16K each, which are further divided into 256 
"pages" of 64 bytes each. A sprite shape definition is 3 
bytes wide by 21 bytes high, or a total of 63 bytes. The 



64th byte of a page used to define a sprite always has a 
value of zero. In our documentation, the number under 
the Page heading is a reference to the page in memory, 
outside the program itself, where the shape data for a 
particular sprite is stored. 

For example, if the page number for a rocket sprite 
stored in bank 0 is 192, the data that determines the shape 
of the rocket is stored in the C-64's memory beginning at 
page 192, or location 12288 (192 * 64 = 12288). 

In most of these games, the sprites are stored along 
with the program in the first 16K bank of memory, which 
is known as bank 0. Some games use a technique called 
bank switching, which permits the sprites to be accessed 
by the VIC chip from a different bank. If a game uses a 
bank other than 0, its program documentation will so 
indicate. (For more discussion of bank switching, see the 
Programmer's Notes for the game Cosmo's Rescue. 

A maximum of eight sprites may be on the screen at 
any one time. Eight locations in memory, beginning at 
location 2040, are used as sprite page number pointers. 
When a game is running and the program calls for a sprite 
object to be displayed, the VIC chip obtains the page 
number to Use from the sprite page pointer location 
assigned to that sprite. 

When an object is to be animated, several different 
sprites are used, each representing a different step in the 
animation. Then a sequence of different sprite pages, one 
for each sprite, is used to create the animation effect. The 
page number stored in the sprite page pointer is continu¬ 
ously changed to the next page number in the animation 
sequence. 

For each game, we have printed a few of the major 
sprites in graphic form. To the right of each sprite 
printout, you will find three columns of numbers. Each 
row contains the actual numbers used in the program's 
DATA statements to define the corresponding row of the 
sprite. The numbers below the sprite represent the loca¬ 
tion in memory (bank and page) where the sprite data is 
stored. 

If you would like to learn how the numbers in DATA 
statements translate into a particular sprite shape, how 
sprites can be more than one color, and other details of 
using sprites, refer to the Commodore 64 User's Guide or to 
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some of the other excellent books now available about 
sprite programming on the Commodore 64. 

Sprites are somewhat complicated to set up initially, 
but then they can be controlled and moved around with a 
minimum of programming. In most cases they offer the 
most advantageous method of creating moving objects. 
Their disadvantage is that no more than eight may be on 
the screen at one time. 

Characters and Redefined Characters 

The C-64 also offers another method of creating movable 
shapes in a program. You may have seen "graphics" pro¬ 
grams in which characters such as X and O are used to 
draw the shapes. In addition to alphabetic and numeric 
characters, graphics characters with many different 
shapes are available on the C-64. These graphics charac¬ 
ters can be arranged to form the desired object, and 
program instructions can be written to move the group of 
characters around on the screen. 

It is possible to invent entirely new graphics shapes 
if the ones available aren't suitable for the desired effect. 
The programmer then includes instructions which 
redefine the standard characters to give them the spec¬ 
ified new form. 

Some of the game programs in this book use 
redefined characters to create animated figures and other 
special shapes. Once again, consult one of the books on 
graphics programming for the Commodore 64 for com¬ 
plete details on how this is done. 

Since there are 256 characters in the C-64 character 
set, there may be up to 256 redefined character shapes in 
a program. Therefore this technique is sometimes used 
when a game design calls for a large number of movable 
objects, even though much more programming is 
required to move them around on the screen than is 
necessary with sprites. The most advantageous use of 
redefined characters is for complex background shapes 
that do not require movement. 

The Program Listing 

For readers who do not have a printer, and to save time 
for those who do, we have included a program listing. It is 
printed exactly as it would be if you loaded the game and 
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printed it on your own printer. A complete listing is 
invaluable if you want to learn how a program works or 
figure out how to modify it. 

The many strange symbols in the listings are the 
Commodore 64's special graphics and control characters. 
When you list the program on your computer monitor, 
you will see the same symbols. To learn which keys to 
press to obtain these symbols and what the control char¬ 
acters do, consult Chapter 5 of the Commodore 64 User's 
Guide or one of the other books available on graphics 
programming for the Commodore 64. 


Modifying the Games 

If you want to follow our modification hints and experi¬ 
ment with changing the games, we suggest that you first 
set up a separate disk for your modified versions. 

First, format a new disk as explained in the user's 
manual for your disk drive. Load the program into your 
computer from the original disk. Then remove the origi¬ 
nal disk, insert your new formatted disk, and save the 
program. You will still have the program loaded in the 
computer, and you can then begin making your changes. 

Remember that when making changes, it is very 
easy to make errors that introduce "program bugs". The 
bugs can be severe enough to cause the computer to "lock 
up" when you try to run the game. If this happens, you 
will be unable to save your changes. Therefore, we sug¬ 
gest that each time you are ready to try running a newly 
modified program, you save it first. Even if it contains a 
bug, it may be easier just to correct the bug than to enter 
all your changes again. 

Each time you save a version of the game, give it a 
different name, and keep each version until you are sure 
you will never want it again. For example, if you are 
working with the game Ghost Hunt, you may wish to 
name the modified versions GHOST HUNT 1, GHOST 
HUNT 2, and GHOST HUNT 3. After you are certain 
that GHOST HUNT 3 works, you may decide to delete 
the other two versions from the disk. When you complete 
a’ modified version that you plan to save indefinitely, give 
it yet another name, such as GHOST HUNT A or 
GHOST CHASE. 
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NEVER TRY TO SAVE A PROGRAM ON THE 
DISK THAT CAME WITH THIS BOOK! You might 
accidentally damage the disk and lose all its games for¬ 
ever! As a safeguard, you could place a write-protect tab 
over the square notch on the original disk. 


Try Programming Yourself! 

Many computer owners begin to explore programming 
because they are intrigued by the inner workings of the 
programs they have purchased. As you begin to learn 
more about programming and begin to understand the 
game programs in this book, you may have modification 
ideas of your own. Go ahead and try them! 

You may find yourself becoming more and more 
involved in programming, just because you enjoy it. 
Writing programs can be a lot of fun! 

Programming Guidelines 

If you decide to do much programming, you will want to 
refer to one of the many programming texts on the BASIC 
language. To supplement the information they provide 
on the features of the language, we would like to offer 
some hints on style and structure which can make your 
programs easier to debug and modify. These techniques 
can make your programming efforts more successful and 
less frustrating, whether you are writing original pro¬ 
grams or simply modifying the game programs in this 
book. 

1) Plan first - program later. Think through your 
design or proposed change before you begin to write any 
program instructions. Write down everything the pro¬ 
gram will do and the steps it will follow. 

2) Don't be too clever. Use straightforward logic that 
will still make sense to you if you decide to work on the 
program again a month later. 

3) Plan for speed, but don't make it your first pri¬ 
ority. Get the program working correctly first. Then if 
some part of it seems to be running too slowly, you can 
concentrate your efforts on speeding up that routine. 

4) Organize your program by dividing the program 
tasks into logical subroutines to be performed by one 
control section. Place the subroutines below the control 
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section. Then, when looking at or working on the pro¬ 
gram, you can see the sequence of tasks at a glance. 

5) Make variable names as meaningful as possible. 
SC would be a better variable name than R9 to keep track 
of the score. Use a name like VI for the base address of 
the VIC chip (53248). VI + 16 is more easily remembered 
and meaningful than 53264. 

6) Document your programs internally with 
remarks. Identify the function of each subroutine with a 
remark at the beginning of the subroutine. Identify the 
usage of each group of DATA statements. Comment on 
any section of the program for which the function is not 
obvious. These remarks can be great timesavers later if 
you have to debug or modify the program. 

As you examine the programs and their documenta¬ 
tion in this book, ask yourself two questions: 1) What do 
you wish the programmers had done to make it easier for 
you to understand the program or to help you make 
changes? 2) What did they do which you found helpful? 
Your answers to these questions will provide useful guid¬ 
ance when you begin writing your own programs. 

Compilers and Other Languages 

If speed is important in your programs, you may find that 
the Commodore 64's BASIC interpreter cannot execute 
your program instructions quickly enough. Each time the 
program is run, an interpretive language must convert 
each statement in the program into machine language 
before it can be executed by the computer. 

You may wish to acquire a BASIC compiler, which is 
a program used to convert your BASIC source program 
into machine language in a separate step, creating an 
object version of the program. No time is required for 
conversion when the object program is executed, and the 
program runs faster. You may find it runs so much faster 
that you actually have to make changes to slow it down! 

Usually there are subtle differences between inter¬ 
preter and compiler versions of the same language. Often 
some programming changes are required when moving 
from one to the other. You would be well-advised to wait 
until you are very comfortable with programming on the 
C-64 before you attempt to use a compiler. 




You may also want to learn to use assembly lan¬ 
guage to speed up critical routines in your BASIC pro¬ 
grams. Or, you might investigate other languages which 
are faster than BASIC, such as Pascal, FORTH, or 'C', all 
of which are compiled languages. 

Programming References 

For programming information beyond the scope of the 
Commodore 64 User's Guide, a number of excellent pub¬ 
lications are available. The Commodore 64 Programmer's 
Reference Guide (Commodore Business Machines, Inc. 
and Howard W. Sams, Inc., 1982), available in book¬ 
stores, is a complete technical reference for the C-64 and 
is essential for the serious programmer. 

For a step-by-step tutorial, however, the many other 
books available on C-64 graphics programming will be 
more appropriate. It is difficult to recommend specific 
titles because, while many of them are excellent, they 
vary widely in content and level of complexity. Find a 
bookstore with a good selection of Commodore computer 
books, and select some that are designed for your level of 
knowledge and include the topics of interest to you. 
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S tationed inside the red control tower, you are a 
rocket landing controller responsible for the safe 
landing of incoming rockets. Each rocket must touch 
down very gently on its black landing pad before running 
out of fuel, or it will explode. 

Incoming rockets appear on the screen from the 
upper left and are controlled with function keys. Press FI 
or F3 to fire the side thrusters, or F5 to turn on the main 
engines and slow your descent. When the landing pad is 
on the left, safe landings can be made easily. But if the 
landing pad is toward the right of the screen, be careful 
and watch your fuel supply! After a rocket has been 
landed safely or has crashed, press any key to start a new 
landing sequence with another rocket headed for a differ¬ 
ent landing pad. 

You may wish to use Rocket Lander as a practice 
game to help you get a better feel for the delicate control 
skills necessary for such games as Cosmo's Rescue and 
Ride the Wind. 

Load the game by typing LOAD"ROCKET 
LANDER", 8 and pressing the RETURN key. After 
about 20 seconds, the computer will say READY, indi¬ 
cating that the game is loaded. Then type RUN and press 
the RETURN key. The title screen will appear, followed 
by an instruction screen with the message GET READY - 
ROCKETS APPROACHING. After about 40 seconds, 
the game will start. Happy landings! 
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Programmer's Notes 

Sprites without DATA Statements. Five different 
sprites for the rocket in Rocket Lander are defined in 
DATA statements. A sixth sprite, for the landing pad, is 
defined using another technique instead of DATA state¬ 
ments. 

The landing pad is simply a solid rectangular box 
with nothing showing on the screen except its top. If the 
sprite had been defined with DATA statements, all the 
numbers in the DATA statements would be 255. Instead, 
line 10 of the program contains a loop which stores the 
value 255 directly into all 63 bytes of memory set aside 
for the landing pad sprite definition. 

Many sprites with simple designs can be created in a 
similar way. Instead of typing one value over and over 
again into DATA statements in the program, taking up 
valuable space in memory, let the computer do the work! 

Redefined Characters. The futuristic landing control 
tower and the rugged landscape were created with 
redefined characters, defined in the eighteen lines of 
DATA statements at the end of the program. Line 170 
replaces the standard characters with the values in the 
DATA statements. The Introduction to this book and the 
Programmer's Notes for the game Space Crash offer 
further discussion of redefined characters. 

If you would like to see the standard characters 
which were redefined to obtain the characters that 
appear on the screen in Rocket Lander, do the follow¬ 
ing: Turn the computer off and on again. Load the game 
in the usual manner but do not type RUN. Type 170 and 
press RETURN. (This will delete line 170.) Now type 
RUN and press RETURN. The screen will be displayed 
with standard instead of redefined characters, but other¬ 
wise, the game will run as usual. 


Hints for Modifying the Game 

The variable K1 represents the vertical speed of the 
rocket. In line 440, the expression Kl< - .1 checks for 
the speed at landing time, -.1 being the maximum speed, 
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allowed for a safe landing. Substituting other values for 
the .1 will make landing easier or more difficult. 

The statement K1 = K1 - .1 in line 430 decreases the 
speed when the main engines are fired, and the statement 
Kl = Kl + .l in line 437 simulates the force of gravity. 
Again, substituting other values for the .1 will change the 
difficulty of the landing. 

The amount of fuel remaining is stored in the vari¬ 
able PO. The beginning fuel supply is set to 100000 in line 
360 and can be changed to other amounts. Lines 410 and 
420 decrease this amount by 100 when the side thrusters 
are fired. Line 430 decreases the amount by 500 when the 
main engines are fired. Changing these values will affect 
the fuel efficiency of the rocket. 

You might want to modify the action of the side 
thrusters. The rocket moves sideways only when a 
thruster is fired and stops moving sideways when the 
thruster is released. Consider a method to keep the 
rocket's current horizontal momentum in effect until it is 
modified by further thruster firings. 



Major Routines 

0009-0025 INITIALIZATION 

Generate landing pad sprite and set up array 
X$ () with radar antenna characters. 

0030-0060 PRINT TITLE SCREEN 

Display title screen until sprite data is loaded 
into memory. 

0070-0086 PRINT INSTRUCTION SCREEN 

0090-0170 LOAD CHARACTER DATA 

Lower top of BASIC memory. Copy standard 
character set into main memory and replace 
18 of them with redefined characters. Point 
VIC chip to new location of character set. 

0200-0320 PRINT BACKGROUND 

Print background using regular and redefined 
characters. 
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0350-0370 INITIALIZE SPRITES 

Set size, color, and location. Pick random 
location for landing pad. Set initial fuel sup¬ 
ply. 

0400-0470 MAIN GAME LOOP 

Read current key pressed. If valid function 
key, select appropriate rocket sprite, 
decrease fuel supply, and adjust position of 
rocket. Prevent rocket from leaving screen to 
left or right. Add pull of gravity and check for 
good landing, crash, or out of fuel. Rotate 
radar antenna and print remaining fuel. 

0500-0530 GOOD LANDING 

Flash screen and make sound. Update good 
landing count and wait for any key pressed to 
begin again. 

0600-0630 CRASH LANDING 

Scroll screen, flash rocket sprites, and make 
sound. Update crash landing count, show 
"splat" rocket, and wait for any key pressed to 
begin again. 

0700-0900 SOUND ROUTINES 
Three sound routines. 

1000-1020 WAIT FOR KEY PRESSED 

5000-5190 SPRITE DATA 

5200-5360 CHARACTER DATA 

Redefined characters. One per line. 


Rocket 

Lander 


Major Variables 

General: 

V Base address of VIC chip 

SO Base address of SID chip 
SL Address of hardware interrupt 

SC Base address of screen memory 
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BA Base address of relocated character set 
AA Current key pressed 

V$ String of cursor downs 

H$ String of cursor rights 

Radar Antenna: 

X$() Character strings for animation 
TU Counter for animation 

Rocket: 

RS Pointer to sprites 

K1 Vertical movement 

HI Horizontal position 

VI Verticalposition 

CR Number of crash landings 

LN Number of good landings 

PO Fuel 


Sprites 


Line Numbers 

Page 

See notes 

13 

5000-5030 

192 

5040-5070 

193 

5080-5110 

194 

5120-5150 

195 

5160-5190 

196 


Redefined Characters 

Line 
Number 

5200 
5210 
5220 
5230 
5240 
5250 
5260 
5265 
5270 


Description 

Landing pad 
Rocket - no thruster 
Rocket - right thruster 
Rocket - left thruster 
Rocket - bottom thruster 
Rocket - splat 


Description 

Solid block 
Mountain part -1 
Mountain part - 2 
Mountain part - 3 
Mountain part - 4 
Mountain part - 5 
Mountain part - 6 
Mountain part - 7 
Mountain part - 8 
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5280 

Mountain part - 9 

5290 

Building part -1 

5300 

Building part - 2 

5310 

Building part - 3 

5320 

Building part - 4 

5330 

Building part - 5 

5340 

Building part - 6 

5350 

Mountain part -10 

5360 

Mountain part -11 


Rocket 
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S usie Squirrel has gathered her winter supply of nuts 
from the trees, and now she needs to get them stored 
safely away. By aiming very carefully, she can drop them 
into holes in the ground which lead to her underground 
burrow. However, her timing must be just right, because 
the birds flying by will snatch them from the air if they 
get half a chance! 

Control Susie's left and right movements with a 
joystick, and drop the nuts with the fire button. She has 
gathered 104 nuts - see how many you can successfully 
drop into her burrow. 

Load the game by typing LOAD"SQUIRREL 
AWAY", 8 and pressing the RETURN key. After about 
25 seconds, the computer will say READY, indicating 
that the game is loaded. Then type RUN and press the 
RETURN key. Susie will chatter at you from the title 
screen until you press the fire button and proceed to the 
instruction screen. Press the fire button again to start the 
game. When the game is over press the fire button to 
return to the instruction screen. 

To stop the game, refer to the section in the introduc¬ 
tion for stopping bank-switched games. This game uses 
memory bank 2 for sprites and graphics. 

Programmer's Notes 

Moving Sprites and Characters Together. This game 
design required 104 nuts, each of which must remain 
visible on the screen if it gets safely into the burrow. 
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Because the C-64 allows a limited number of sprites, the 
nuts were created as characters. The squirrel and birds, 
however, were created as sprites. (See the Introduction 
for a discussion of the differences between characters 
and sprites.) 

Programming the squirrel carrying a nut presented 
an interesting problem. The squirrel and nut must move 
in unison, but the squirrel sprite is positioned with pixel 
coordinates, while the nut character is positioned with 
character coordinates. To make the squirrel appear to be 
carrying the nut as it moves, the squirrel's coordinates are 
changed by eight pixel units for each character unit by 
which the nut moves. 

Making the motion appear natural when the squirrel 
turned around still remained a problem. This was solved 
by experimenting, which is part of the fun of developing 
video games. When you play the game, observe how this 
was worked out - when the squirrel turns in place, the 
nut jumps several character units to the other side of her. 


Squirrel 

Away 


Detecting Sprite-to-Character Collisions. When a 
moving sprite and a character come together on the 
screen and touch one another, a "sprite-to-character colli¬ 
sion" occurs. Since the logic of a program often requires 
detection of these collisions, the Commodore 64's VIC 
chip has a special sprite-to-character collision register, 
located at memory location 52379 (sometimes referred to 
as the sprite-to-background collision register). The com¬ 
puter uses this register to reflect the current collision 
status of all the sprites. 

Each sprite is monitored by one bit in the register - 
for example, bit 1 monitors sprite # 1. Bit 1 ordinarily has a 
value of 0, but is set to a value of 1 when sprite # 1 is 
involved in a collision. By reading the register as a binary 
number, the program can determine which sprites are 
currently involved in a collision. It is a good practice to 
save the register's contents in a variable, because once it 
is read, the register is automatically cleared. 

In Squirrel Away, the sprite-to-character collision 
register is checked in line 2172 to detect a collision 
between any of the bird sprites and the falling nut. 
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Hints for Modifying the Game 

Squirrel Away would be more difficult to play if the 
birds were larger or moved faster. Add a new line 305 
reading 305 POKEV + 29,254 to make the birds longer. 
Currently the speed of the birds is calculated by adding 
N * 2 + 8 to BX(N) in line 3010. Try changing the 2 to other 
values. 

The birds could be made to fly across the screen in 
some fashion other than a straight line. Be careful, how¬ 
ever, not to let them hit a background character other 
than the nut, because the program would then detect a 
sprite-to-character collision and proceed as if a nut had 
been eaten. The birds may hit each other safely, because 
they are all sprites and there is no check in this program 
for sprite-to-sprite collisions. 

You can make it easier to aim the nut by letting the 
nut remain stationary when the squirrel changes direc¬ 
tion. Instead of rotating the squirrel in place and making 
the nut jump from one side to the other, make the squirrel 
jump to the opposite side of the nut. 


Major Routines 

0030-0340 INITIALIZATION 

Set VIC memory to bank 2. Read sprite data 
into memory. Initialize variables and sprites. 
Print title, instruction, and play screens. 

0500-0550 MAIN LOOP 

Move birds and read joystick. If fire button 
pressed, drop nut. If there are no nuts left to 
drop, end game. Move squirrel and nut. 

0700-0790 INITIALIZE SPRITES 

Set up starting positions for squirrel and 
birds. 


0800-0890 PRINT PLAY SCREEN 
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1500-1550 MOVE SQUIRREL LEFT 

Calculate squirrel's new position, update 
sprite pointers, and make a sound. 


1600-1650 MOVE SQUIRREL RIGHT 

Calculate squirrel's new position, update 
sprite pointers, and make a sound. 

2000-2020 MOVE THE NUT 

Move nut with squirrel. 

2100-2250 DROP THE NUT 

Move nut down the screen and move birds. 
Check for nut hitting ground, birds, or bur¬ 
row. Decrease nut count. 

2300-2395 NUT DROPS IN THE HOLE 

Move nut to the right of burrow and blink 
birds. If no nuts left, end game. 

3000-3110 MOVE THE BIRDS 

Update positions and sprite pointers. If bird 
moves off screen, relocate on left. 

4000-4010 NUT DROPS IN THE HOLE SOUND 

4100-4110 NUT MISSED THE HOLE SOUND 

4200 SQUIRREL MOVEMENT SOUND 

4300-4320 NEW SCREEN SOUND 

4400-4440 INITIALIZE SOUND 

5000-5090 PRINT TITLE SCREEN 

5100-5130 GAME IS OVER 

5200-5290 PRINT INSTRUCTION SCREEN 



Squirrel 

Away 


6000-6950 SPRITE DATA 
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Major Variables 

General: 

V Base address of VIC chip 

SI Base address of SID chip 

SM Base address of screen memory 
CM Base address of color memory 
M1 Base address of sprite pointers 
BS() Sprite page numbers for birds 

Squirrel: 

SP() Sprite page numbers 
D Direction of movement 

SN Animation sequence counter 

X X position in graphics mode 

XI X position in sprite mode 

Y Y position in graphics mode 

Y1 Y position in sprite mode 

Nut: 

T1 ASCII code for shape 

T2 Color 

TP Position in screen memory (1-1000) 
W1 Number left to drop 

W2 Number dropped into burrow 
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Squirrel moving left—2 


Sprites 


(NOTE: All sprites are in bank 2) 


Line Numbers 

Page 

Description 


6000-6130 

16 

Squirrel moving left -1 


6140-6270 

17 

Squirrel moving left - 2 


6280-6400 

18 

Squirrel moving right -1 


6410-6540 

19 

Squirrel moving right - 2 


6550-6680 

20 

Bird flying -1 


6690-6820 

21 

Bird flying - 2 


6830-6950 

22 

Bird flying - 3 

Squirrel 

Away 
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Igor Tulchinsky 



T hree friends are out late at night trying to catch the 
neighborhood ghost. She is a slippery, tricky ghost, 
and in order to capture her, all three figures must touch 
her at once without touching each other. 

With a joystick, you control the movement of one 
figure while the other two stand still. The figure you are 
controlling is yellow, and you can switch to a different 
one by pressing the fire button. If you hold down the fire 
button while moving the joystick, all three figures will 
move in the same direction. 

You are allowed a certain amount of time to catch 
the ghost. After you have caught her, you can play again, 
but each time she will be moving faster and the amount of 
time allowed to catch her will be shorter. You will accu¬ 
mulate points based on the length of time you take to 
catch each ghost. The game ends when the time runs out 
and the ghost has not been captured. 

Load the game by typing LOAD"GHOST HUNT",8 
and pressing the RETURN key. After about 20 seconds, 
the computer will say READY, indicating that the game 
is loaded. Then type RUN and press the RETURN key. 


Programmer's Notes 

Detecting Sprite-to-Sprite Collisions. When two or 
more moving sprites come together on the screen and 
touch one another, a "sprite-to-sprite collision" occurs. 
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Since the logic of a program often requires detection of 
these collisions, the Commodore 64's VIC chip has a 
special sprite-to-sprite collision register at memory loca¬ 
tion 53278. The computer uses the register to store the 
current collision status of all the sprites. 

Each sprite is monitored by one bit in the register - 
for example, bit 1 monitors sprite # 1. Bit 1 ordinarily has a 
value of 0 but is set to a value of 1 when sprite #1 is 
involved in a collision. By reading the register as a binary 
number, the program can determine which sprites are 
currently involved in a collision. It is a good practice to 
save the register's contents in a variable, because once the 
register is read, it is automatically cleared. 

In Ghost Hunt, the ghost is sprite # 0. The figures 
are sprites #2, #3, and #4. When all of the sprites are 
involved in a collision, bits 0, 2, 3, and 4 will be set to 1, 
giving the collision register a value of 1 + 4 + 8 +16, or 29. 
In line 210, the sprite-to-sprite collision register is read, 
and its contents are stored in variable Ql. 

The game design specified that for the ghost to be 
captured, none of the three figures could be touching 
each other. This presented a programming problem, 
because when each figure is touching the ghost, each is 
involved in a collision regardless of whether it is touching 
another figure. This problem is solved in Line 231 of the 
program, in the following way: 


Ghost 

Hunt 


1) The ghost sprite is turned off. As long as it is off, the 
sprite collision register will not detect its collisions. 

2) The sprite collision register is cleared. 

3) A delay of at least l/60th of a second is executed, 
during which the system can detect any collisions 
between the figures and update the register. 

4) The sprite collision register is read again. If no colli¬ 
sions are detected, then no figures are touching each 
other and the capture is valid. However, if any 
figure is touching any other, then the sprite collision 
register will read greater than zero and the ghost 
will not be captured. 

5) The ghost sprite is turned back on and the program 
continues. 

This all occurs so quickly that you never see the ghost 
disappear! 























Ghost Hunt 15 


Hints for Modifying the Game 

The statement IFCT = 40 in line 52 controls how long the 
ghost will stay in one position before heading off in a new 
direction. Change the 40 to a larger number to have the 
ghost remain in one spot longer. A smaller value will 
create a very slippery ghost! 

Each time the fire button is pressed, the next figure 
in sequence is selected for movement. To select the next 
figure randomly when the fire button is pressed, change 
line 12 to read: 

12 IF(NOTBS%AND16) = 16THENN1 % =N%:N% =INT(RND(8)*3 + 1) 

You might want to try changing the distance (in 
pixels) by which the figures and the ghost move, as the 
score increases. This would best be done in the ADJUST 
SCORE routine. 


Major Routines 

00010-00040 MOVE FIGURE 

Check fire button. If it has been pressed, 
switch figures by changing colors. Check 
joystick and move figure selected. 

00051-00110 MOVE GHOST 

Make a sound. Check whether counter 
has reached a certain value. If so, pick 
new spot for ghost to move toward. 
Move ghost toward hidden spot. Switch 
to other ghost sprite, causing animation. 
Make a sound. 


00200-00206 INITIALIZATION 

00210-00300 MAIN CONTROL LOOP 

Move figure and ghost, and read sprite 
collision register. Print remaining time 
on screen. If less than ten seconds left, 
flash screen and sound alarm. If no time 
left, end game. If ghost has not been cap- 
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10000-10026 

11000-11090 

12000-12500 


13000-13116 

13120-13180 

15000-15040 

16000-16020 

18000-18210 


tured, start over. If ghost has been cap¬ 
tured, increase score and speed, and 
resume. 

SPRITE DATA 

PRINT GAME SCREEN 

Draw earth, sky, and stars while making 

noises. 

PRINT TITLE SCREEN 
Initialize sound. Draw border dots while 
making musical sounds. Print title. Read 
in sprite data for ghost. Reinitialize 
sound. Make ghost fly around, while 
making ghostly whine and waiting for 
fire button to be pressed. 

SPRITE INITIALIZATION 
Read sprite data into memory. Set color 
and other sprite parameters. Initialize 
sprite-related variables. 

SOUND INITIALIZATION 

Clear sound chip. Define voices used. 

Print "Score" at top of screen. 

GAME OVER 

Make whine sound. Print farewell mes¬ 
sage. Wait until either fire button is 
pressed or 45 seconds have elapsed, then 
restart game. 

ADJUST SCORE 

Print score after converting it to string 
variable. Increase speed of game. 

PRINT INSTRUCTION SCREEN 
Print instructions and wait for player to 
press fire button before starting game. 
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Major Variables 

General: 

V Base address of VIC chip 
S Base address of SID chip 
BS% Joystick status 
TZ Time left 

NP Score points awarded 
SC Score 

VZ Frequency of sound 

SI Increment of frequency 

MM Number of pixels moved by all sprites 
VL Time allowed to catch ghost 

Figure: 

N % Number selected 
CL Color 

D3% Horizontal movement 
E3% Vertical movement 
X % () Horizontal positions 
Y% () Vertical positions 
PX Address of horizontal position 

PY Address of vertical position 

Ghost: 

CT Counter for movement 

X8 % Horizontal position to head toward 

Y8 % Vertical position to head toward 

X3% Horizontal position 

Y3 % Vertical position 

D % Horizontal change in position 

F % Vertical change in position 

DX% Horizontal movement 

DY % Vertical movement 

M% () Magnitude of movement 



Sprites 



Line Numbers 

Page 

Description 

10000-10006 

192 

Ghost -1 

10010-10016 

193 

Ghost - 2 

10020-10026 

194 

Figure 
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Firecracker 

Boy 



Charles Mott, Jr. 


Balloon 


T he Mayor's Fourth-of-July parade is in danger of 
interruption by a mischievous boy who is lighting 
firecrackers. The Mayor is on the reviewing stand watch¬ 
ing the colorful floats and cars, and if he hears a fire¬ 
cracker explode, he will do a flip and stop the parade! You 
are a firefighter assigned to drop water balloons on the 
fuses of the firecrackers before they explode. 

Control your movements left and right on the top 
floor of the blue Fire Station with a joystick, releasing the 
water balloons with the fire button. The net moving back 
and forth in front of the fire station may hamper your 
efforts by intercepting your balloons as they fall. The boy 
can trick you by hiding his firecrackers behind the door 
of the building, but you have your own tricks: you can 
drop balloons from behind the window pillars, and you 
can hit a firecracker even when it is behind a float. Points 
are scored for each firecracker you manage to put out. 

Load the game by typing LOAD'TIRECRACKER 
BOY",8. Then press the RETURN key. After about 25 
seconds the computer will say READY, indicating that 
the game is loaded. Then type RUN and press the 
RETURN key. After the title screen is displayed, the 
program will pause briefly before the game begins. 
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Firecracker 

Boy 


Programmer's Notes 

Two-Part Design to Handle Large Programs. To 

achieve its animation effects, Firecracker Boy uses a 
total of 33 sprites, including 10 Mayor sprites, 10 fire¬ 
cracker sprites, and 2 sprites for the mischievous boy. In 
addition to the great number of sprites, the features of the 
game required a very large program. To accommodate all 
this, the program was written in two parts. Part 1 begins 
by displaying the title and instruction screens, while it 
loads the sprite data from the program into the sprite 
pages. It then automatically loads and runs Part 2 (the 
actual game) from disk. 

Line 670 of Part 1 loads one byte of sprite data into 
memory. In a number of different places throughout the 
routines which display the title and instruction screens, 
GOSUB 670 instructions gradually load all the sprite 
data. After the sprites are loaded, line 710 protects them 
from being over-written by specifying a smaller portion 
of memory to be used for variable storage in Part 2. 

Lines 720 and 721 use the keyboard buffer to load 
Part 2 of the game. See the Programmer's Notes for the 
game Mission: Tobor for an explanation of this special 
use of the keyboard buffer. 

Using Variables to Control Processing Sequence. 
Often the sequence of processing in a program depends 
on whether or not a certain condition exists. One method 
for controlling program sequence is the use of variables 
as "flags". At a logical place in the program, a test is made 
for the condition, and a variable is set to indicate whether 
or not the condition exists. When the course of the game 
at some later time depends on that condition, the variable 
is checked. 

Part 2 of Firecracker Boy uses the array FG() for 
flags to monitor various conditions which may occur 
during the game. Each element of the array is designated 
to indicate a particular condition. When the condition 
does not exist, or is FALSE, the flag is cleared, or set to 0. 
If the condition then becomes TRUE during the course of 
the game, the flag is set to a positive number. 

For example, FG(2) is the "firecracker-on-screen" 
flag. It is set to FALSE when the boy walks onto the screen 
carrying a firecracker and set to TRUE when he drops it. 
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When a water balloon hits the firecracker, the flag is set 
back to FALSE. After the boy walks off the right side of 
the screen, the flag is continuously tested to see whether 
he should walk back onto the left side with a new fire¬ 
cracker. He will not reappear until a water balloon has 
put out the current firecracker and the flag is found to be 
FALSE once again. 

The array DR() is used in a slightly different way to 
control sequence. The DATA statement at line 190 con¬ 
tains numbers coded to point to certain lines of the pro¬ 
gram. In lines 140-150, those numbers are loaded into DR(). 
Then in line 250, that array is used to determine what 
process is to be done next, based on the position of the 
joystick. The joystick port is read by a GOSUB to line 
570, and the result is stored in the variable JV. If JV was 
set to 4, then the fourth element of array DR() is used to 
select the line in the program which is to be executed 
next. 

For more information about ON GOTO and ON 
GOSUB instructions, see the Commodore 64 User's Guide. 


Hints for Modifying the Game 

Part 1. Lines 380-440 use PRINT instructions to display 
the contents of arrays X$(), Z$() and C$(), which are the 
word FIRE, the word CRACKER, and a picture of a fire¬ 
cracker. For some ideas on other ways of printing these 
arrays, see the hints for modifying the game Mission: 
Tobor. 

An alternative way of writing Firecracker Boy 
would be to load the sprite data from a disk file instead of 
having it in DATA statements. For a programming exer¬ 
cise, try creating a disk file of all the sprite data and 
turning Firecracker Boy into a one-part program. Move 
the title and instruction screen routines from Part 1 to 
Part 2, and add a routine in Part 2 to read the sprite data 
from a disk file. This could be an involved process, but it 
would be a good lesson in creating and working with disk 
files. 

Part 2. The variables PH and AP, which control the 
number of pixels by which each of the main figures 
moves, are initially set to 9 in line 70. Smaller initial 
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values will slow down the action and larger values will 
speed it up. However, take care not to make the values so 
high and the moves so large that collisions will not be 
detected properly. 

PH controls how fast the net moves, and is incre¬ 
mented as your score increases. When you press the fire 
button to start the game over, PH is re-initialized to 9 in 
line 930. This means that each game will be relatively 
easy in the beginning, but will get harder as your score 
climbs. To make each game harder than the last, change 
PH = 9 to read PH = PH + 1 in line 930. 

The variable EN determines how long it takes for 
the firecracker to pop after it is dropped. In line 1560, the 
statement EN = EN—2 has the effect of shortening the 
fuse as the score increases. Consider changing the value 
of EN in other ways as the game progresses. 



Major Routines 

PARTI 

0080-0360 INITIALIZE VARIABLES 

Begin loading sprite data into memory and 
set up title screen array variables. 

0370-0470 PRINT TITLE SCREEN 

Print out title screen arrays as more sprite 
data is loaded into memory. 

0480-0490 INITIALIZE FALLING SOUND 

0500-0520 FALLING SOUND 

0530-0660 PRINT INSTRUCTION SCREEN 


Firecracker 

Boy 


0670 POKE 1 BYTE OF SPRITE DATA 

Read and store sprite data until last byte 
(with value of 256). 

0700-0720 LOAD PART 2 

Start long sound. Lower top of memory. 
Load keyboard buffer and use contents to 
load Part 2. 
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PART 2 

0050-0200 INITIALIZE VARIABLES 

Set up joysticks and flag arrays. Initialize 
sprites. 

0240-0530 MAIN GAME LOOP 

Move boy and drop off firecracker at a ran¬ 
dom spot. Move firefighter, net, float, and 
water balloon. Check for balloon hitting fire¬ 
cracker. Check for end of game. 

0570 READ JOYSTICK 

0610 NEW BALLOON 

Give a new balloon to firefighter: Turn off 
balloon sprite. Then, using firefighter's cur¬ 
rent position for new position of balloon, 
turn balloon sprite back on. 



0650-0760 INITIALIZE SPRITES 

Set position, color, and size. 


0800-0960 GAME END 

Firecracker burns down and explodes. 
Mayor does a flip. 


1000-1240 PRINT GAME SCREEN 


1280-1350 COLLISION DETECTION 

Check for balloon hitting net or firecracker. 

1410-1440 SOUND ROUTINES 

Background sound, splash sound, and falling 
sound. 


1480-1510 MOVE FLOAT ACROSS SEAM 

Move float sprites past horizontal position 
255. 

1550-1590 PRINT SCORE 

Speed up net, shorten fuse, and print score. 


Firecracker 
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Major Variables 

PARTI 

S Base address of SID chip 

O Pitch of falling sound 

X$() Title word FIRE 

Z$() Title word CRACKER 

C$() Title picture of a firecracker 

PART 2 

V Base address of VIC chip 
SC Base address of screen memory 
JS Address of joystick port 
BR Address of border color 
FG() Flags 

DR() Joystick direction array 
S1-S8 Sprite pointers 
EN Length of fuse 
PH Pixels moved by net 
N Position of net 
XX Pixels moved by float 
AU Position of float 
HH Pixels moved by boy 
BO Position of boy 
AP Pixels moved by firefighter 
MX Position of firefighter 
FC Position of firecracker 
BP Score 
TS Top score 


Sprites 


Line Numbers 

Page 

Description 

5000-5003 

192 

Mayor 

5004-5007 

193 

Mayor animation -1 

5008-5011 

194 

Mayor animation - 2 

5012-5015 

195 

Mayor animation - 3 

5016-5019 

196 

Mayor animation - 4 

5020-5023 

197 

Mayor animation - 5 

5024-5027 

198 

Mayor flip -1 

5028-5031 

199 

Mayor flip - 2 
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5032-5035 

200 

5036-5039 

201 

5040-5043 

202 

5044-5047 

203 

5048-5051 

204 

5052-5055 

205 

5056-5059 

206 

5060-5063 

207 

5064-5067 

208 

5068-5071 

209 

5072-5075 

210 

5076-5079 

211 

5080-5083 

212 

5084-5087 

213 

5088-5091 

214 

5092-5095 

215 

5096-5099 

216 

5100-5103 

217 

5104-5107 

218 

5108-5111 

219 

5112-5115 

220 

5116-5119 

221 

5120-5123 

222 

5124-5127 

223 

5128-5131 

224 


Mayor flip - 3 
Mayor flip - 4 
Net 

Balloon 

Balloon - popped 

Firefighter 

Firecracker 

Fuse burns -1 

Fuse burns - 2 

Fuse burns - 3 

Fuse burns - 4 

Fuse burns - 5 

Fuse burns - 6 

Fuse burns - 7 

Firecracker explosion -1 

Firecracker explosion - 2 

Door 

Boy animation -1 
Boy animation - 2 
Car 

First float 
Second float 
Third float 
Fourth float 
Mayor float 




Firecracker 

Boy 



































































Into 
the Pot 


Frank Mikulastik 



T he cooking pot is boiling, but you haven't yet caught 
your dinner! You had planned to prepare your 
favorite recipe, which calls for two fat chickens, and two 
succulent-looking specimens are roaming around the 
rocky plain next to your camp. How quickly can you get 
them into your pot? 

The blue blocks are heavy boulders which you can¬ 
not move, but you can push the lightweight patterned 
rocks around to create a path into the camp and steer the 
chickens toward the pot. Just in front of your camp there 
is a ready-made canyon entrance - if you can get them 
into the canyon, they're as good as in the pot! 

Since it could take a while to round up the chickens, 
you might want to take a snack break and come back to 
the chicken chase a little later. Pressing the F7 key will 
pause the game, saving your elapsed time. By entering Y 
to continue, you can pick up where you left off. 

If you're not careful, you may trap yourself or a 
chicken in such a position that the game cannot possibly 
be won. In that case, pressing the F7 key and entering N 
is the only way to quit and start a new game. 

Load the game by typing LOAD'TNTO THE 
POT", 8 and pressing the RETURN key. After about 20 
seconds, the computer will say READY, indicating that 
the game is loaded. Then type RUN and press the 
RETURN key. After a delay of about 15 seconds, the title 
will flash on the screen. Press the fire button to proceed to 
the instruction screen. After you win a game, pressing the 
fire button will return you to the instruction screen. 


Into 
the Pot 
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Programmer's Notes 

Variables with Fixed Values. Experienced program¬ 
mers often use variables to represent numbers that are 
fixed in the program and are not expected to change. One 
reason is to plan ahead for future program modifications. 
Although a particular number will never change in the 
current version of the program, assigning it a variable 
name makes it easier to find and change in future ver¬ 
sions. 

When a value is used in many different places in the 
program, assigning it to a variable name is even more 
important. Changing the value of a variable in one place 
in the program is simple, compared with the chore of 
tracking down and changing a numeric value which 
occurs throughout the program. 

In Into the Pot, the number of blocks the cook can 
push at one time is set with the statement NM = 2 in line 
780. The variable NM does not change values as the game 
is played, and it is used only once, in line 1130. The 
statement FORI = 1TONM in line 1130 could have read 
F0RI = 1T02 with the same result. You might decide 
later, however, to modify the game by enabling the cook 
to push a bigger stack of rocks as the game progresses. 
Having already defined the variable NM would simplify 
that change. The simplification would be even greater for 
a variable that is used several times throughout the pro¬ 
gram. 

Often variable names are used simply to make the 
program instructions more meaningful. For example, it is 
common practice to include the instruction V = 53248 to 
define the variable V as the base address of the VIC chip 
(53248). Then it can be referenced as V, rather than as 
53248. 


Into 
the Pot 


Hints for Modifying the Game 

To have the cook character start in a different position, 
change the number assigned to PI in line 700. A value of 0 
would place it at the upper left-hand corner of the screen, 
and a value of 1000 would place it at the bottom right- 
hand corner. The starting positions of the chickens can be 
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changed in a similar way by assigning different values to 
P2(l) and P2{2) in line 720. 

Try adding more chickens to the game. For each 
additional chicken, add a statement to line 720, setting 
the next element in the P2( ) array to the new chicken's 
desired starting position. For example, use P2(3) to estab¬ 
lish the third chicken's initial position. Below line 740, 
add a line similar to lines 730 and 740 but using P2(3). 
Then change the value of NU, set in line 780, to the new 
total number of chickens. 


Major Routines 

0013-0350 INITIALIZATION 

Set up new character set. Set VIC memory to 
bank 3. Turn on new character set. Turn on 
multicolor character mode. Initialize vari¬ 
ables. Print title screen and instruction 
screen. 



0400-0420 START GAME 

Print play screen. Initialize cook, chickens, 
and timer. 


0500-0590 MAIN LOOP 

Move cook and make a sound. Move 
chicken. Check to see if in no-win situation. 
If so, save timer and do NO WIN SITUA¬ 
TION. Repeat loop. 

0700-0790 INITIALIZE CHARACTERS 


0900-0980 PRINT PLAY SCREEN 

Print borders, blocks and box. Blank out 
blocks in box. Print timer. 


1000-1290 MOVE COOK 

Read joystick. Set cook's direction accord¬ 
ingly and see if move possible. If no move¬ 
ment requested, return to MAIN LOOP. If 
location in front of cook is blank, move cook. 
Otherwise, return to MAIN LOOP. If cook is 
in front of a block, check to see if it can be 
moved. If it can, move block and cook, and 
increment the animation counter. 


Into 
the Pot 
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1500-1690 MOVE CHICKEN 

Get a random number between 1 and 4 for 
direction. If direction selected in front of 
chicken is blank, move it and increment its 
animation counter. 

2000-2091 WIN SITUATION 

Make a sound. Check for fire button pressed 
to start a new game. If fire button pressed, 
print instruction screen and start a new 
game. 

2100-2190 NO-WIN SITUATION 

Check for keyboard input of Y or N to stop 
game or not. If game is to be stopped, print 
instruction screen to start another game. If 
game is to continue, reset timer and return to 
MAIN LOOP. 

3000-3060 PRINT TITLE SCREEN 

Make a sound and clear the screen. Switch 
character colors between red and yellow, 
while making a sound and checking for fire 
button to continue. 

3100-3146 PRINT INSTRUCTION SCREEN 

Clear screen and set background and border 
colors and make a sound. Wait for FI or F7 to 
be pressed. If FI, continue with game. If F7, 
stop game. 

4000-4048 SOUND ROUTINES 

Five separate sound effects. 

4100-4220 CHARACTER DATA 

One redefined character per line. 

5140-5400 SPRITE DATA 


Into 

The Pot 


Major Variables 

Memory Pointers: 

V Base address of VIC chip 
SI Base address of SID chip 
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CM Base address of color memory 

SM Base address of character memory 
U Base address of sprite memory 

Ml Base address of sprite data 

Cook: 

S() Animation array 

N1 Animation counter 

PI Position Counter 

T1 X direction movement 

T2 Y direction movement 

Chickens: 

S2() Animation array 

N2() Animation counters 

P2() Positions 

BN() Directions to move 

NU Number of chickens 

Pot: 

SP Animation counter 


Sprites 


(NOTE: All sprites are in bank 3) 


Line Numbers 


Page Description 


5140-5270 

5280-5400 


16 Pot and fire -1 

17 Pot and fire - 2 


Redefined Characters 

Line 

Number Description 

4100 Chicken -1 

4110 Chicken-2 

4120 Chicken - 3 

4150 Cook -1 

4160 Cook - 2 

4170 Cook - 3 

4200 Block pattern -1 

4210 Block pattern - 2 

4220 Block pattern - 3 


Into 

The Pot 






Yo rick’s 

Revenge 


Igor Tulchinsky 



Y orick's Revenge is a video game patterned after 
the action of a pinball machine. The object is to 
toss the ball into the high scoring areas, using the flippers 
located at the bottom of the screen, and to keep the ball in 
play for as long as possible. 

Why is the game called Yorick's Revenge? When 
the ball crosses over the skull of Yorick, in the center of 
the screen, it departs in a new direction which appears to 
be random. But actually, as your score increases, Yorick 
will direct the ball closer to the gutter between the flip¬ 
pers, making it more and more difficult to keep the ball in 
play. Yorick will get his revenge! 

The flippers are controlled by pressing any key on 
the keyboard. When the flippers are down, the ball 
bounces off them as if it had hit the bottom of the screen. 
When the flippers are up, the direction and speed of the 
ball's bounce depends on which part of the flipper hits the 
ball, as well as the ball's previous speed and direction. 

Points are scored when the ball passes over the 100 
and 500 point markers. The ball is lost if it drops in the 
gutter between the flippers. When three balls are lost, the 
game is over. Pressing the fire button will then start a 
new game. 

Load the game by typing LOAD"YORICK'S 


Yorick's 

Revenge 
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Yorick's 

Revenge 


REVENGE", 8 and pressing the RETURN key. After 
about 20 seconds, the computer will say READY, indi¬ 
cating that the game is loaded. Type RUN and press the 
RETURN key. About 10 seconds later, the title screen 
will appear, and then the game will begin. When the 
game is over, press the space bar to play again. 


Programmer's Notes 

Programming for Speed. Achieving reasonable speed 
in a game written in BASIC can be a major problem. 
Because of the nature of the BASIC language, many good 
game ideas become dull games to play because of lack of 
speed. However, BASIC is an attractive first language for 
a beginning programmer, it does have some advantages, 
and often it is the only language available! Here are some 
pointers for overcoming the speed problems. 

The first trick is to organize the frequently processed 
steps into a main control loop along with tests for condi¬ 
tions which occur infrequently. When such conditions 
are detected, handle them with program logic outside the 
loop. For example, the main loop in this program just 
moves the ball and checks for collisions. The bouncing of 
the ball, scoring, and other less frequent events are con¬ 
trolled elsewhere. 

The main control loop should be placed toward the 
top of your program, for two reasons. This placement 
helps the program's speed, since the first lines in a BASIC 
program are executed more quickly than those toward 
the bottom. For purposes of good program structure, it 
makes sense to place the main control loop at the top 
where it can be found easily. Instruction screens, sprite 
data, character definitions, and other routines that are 
rarely executed should be placed at the end of the pro¬ 
gram. 

Putting several statements on a line can speed things 
up a little, but it will also make the program harder to 
read, understand, debug, and modify. Concentrate your 
efforts on efficient program logic and organization. 
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Hints for Modifying the Game 

To make Yorick's Revenge more challenging by 
decreasing the size of the ball, change line 20070 to read: 

20070 POKE V + 29,251:POKE V + 23,120:POKE V+16,0 

This will turn off vertical and horizontal expansion for 
the ball sprite. Or instead, test the score in the POINTS 
COLLISION routine, and make the ball become smaller 
when a certain score is reached. Similar approaches can 
be used on all the other sprites. 

The force of gravity controlling the ball can be 
changed by adjusting the amount added to DY in line 42. 

You could add more interest by making Yorick 
and/or the 100 and 500 point images move around on the 
screen. The instructions to make them move should be 
placed in the scoring routine or the sprite collision rou¬ 
tines, to minimize loss of ball speed. 



Major Routines 

00010-00016 INITIALIZATION 

Initialize all variables and prepare for 
new game. 

00020-00051 CONTROL LOOP 

Check to see if a key is pressed, and 
choose appropriate sprites for flippers. 
Advance ball and test if collision has 
occurred. If no collision, go back to 
beginning of loop. 


00060-00140 SPRITE-BACKGROUND COLLISION 
Determine whether ball has hit a 
bumper by checking if it is adjacent to a 
non-space character. If so, sound beep 
and bounce ball. 


00150-00156 SKULL COLLISION 

Sound hiss, then choose new direction 
for ball based on score. 


Yorick’s 
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00160-00195 POINTS COLLISION 

Sound high beep. Decide if 100 or 500 
points have been hit. Adjust score. 

00200-00231 GUTTER COLLISION 

Sink ball into gutter while making sound. 
If no balls left, end game. Otherwise, 
adjust number of balls remaining and 
pitch new ball. 

00235-00260 FLIPPERS DOWN COLLISION 
Make sound, then bounce ball. 

00270-00380 FLIPPERS UP COLLISION 

Check which flipper, and which part of 
flipper, was hit. Calculate ball speed and 
direction. Bounce ball, adjusting direc¬ 
tion and speed based on previous speed 
and place which it hit on flipper. 

, ^ 8 g 10000-10086 SPRITE DATA 

I!!!!!'.!!!!!!!!!!!!!!!!! 0 0 0 

:::::::::::::::::::::::: ■ \ j 20000-20130 SPRITE INITIALIZATION 

:::::::::::::::::::::::: III Read sprite data into memory. Define 

:::::::::::::::::::::::: I I I sprite size, placement, and other charac- 

:::::::::::::::::::::::: I I I teristics. Then position all sprites 40 

•jjgjjjjjjjjjjjjjiii;;; ||| ‘®| units to left to center them. 

255 255 254 

255 255 255 

. ST: II III lit 21000-21900 BACKGROUND INITIALIZATION 

.■■■■■■■■■■. 127 255 192 

,. r e 0 0 Draw pinball game, first by using POKE 

brnk-# 0 PRDE-# statements to load data directly into 

screen memory and then by printing the 
rest. 

Left flipper—Down 

|______I 22000-22040 SOUND INITIALIZATION 

Initialize three voices. 

23000-23090 END OF GAME 

Sound Yorick's laugh. If flag is set, 
return, because routine is being accessed 
for the first time. If flag is not set, wait for 
fire button to be pressed and start new 
game. 


Yorick's 

Revenge 



24000-24030 PRINT TITLE 
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Major Variables 

General: 

SC Score 

NL Number of balls left 

S$ String value of SC 

N $ String value of NL 

F Flag 

Z Sprite collision flag 

V Base address of VIC chip 

Ball: 

X Horizontal pixel coordinate 

Y Vertical pixel coordinate 

DX Horizontal movement in pixels 
DY Vertical movement in pixels 

T Angular direction in radians 

L Speed 


' 

kR 

wmmmmm 255 

B 

255 

c 

255 


HHBHMH 2-j-j 

.. 0 

0 

25-3 

0 



0 

0 


. 0 

0 

0 



0 

0 


. 0 

0 

0 


. 0 

0 

0 1 



0 

0 



0 

0 


. 0 

0 

0 


. 0 

0 

0 



0 

0 



0 

0 


. 0 

0 

0 


. 0 

0 

0 


. 0 

0 

0 


. 0 

0 

0 


. 0 

0 

0 


. 0 

0 

0 


. 0 

0 

0 

BRHK-# 0 

r 

PAGE-# 200 

Gutter bar 





Sprites 



Line Numbers 

Page 

Description 

10000-10006 

192 

Left flipper - Down 

10010-10016 

193 

Right flipper - Down 

10020-10026 

194 

Left flipper - Up 

10030-10036 

195 

Right flipper - Up 

10040-10046 

196 

Ball 

10050-10056 

197 

100 points 

10060-10066 

198 

500 points 

10070-10076 

199 

Skull 

10080-10086 

200 

Gutter bar 
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Space 

Crash 


Charles Mott, Jr. 



S warms of purple aliens are invading your planet, 
appearing without warning from hyper-space and 
floating to the ground. You must hold them off for as long 
as possible by intercepting and destroying them with 
your saucer. Each alien hit is worth ten points. When 
thirty-two aliens have landed, they will have taken over 
the planet by filling up the landscape, and the game will 
end. 

If a falling alien encounters a tree or other object, it 
will be destroyed, taking with it whatever it hit. Even¬ 
tually, this will clear the way for other aliens to reach the 
ground safely. To maximize your score, try especially 
hard to intercept those whose paths have already been 
cleared. 

You will have maximum maneuvering room if you 
stay high in the sky, but this approach can be dangerous. 
The aliens are appearing from hyper-space in a band 
across the top half of the screen. If one comes in at the 
same spot where your saucer is at that moment, the 
saucer will be destroyed. You can also lose the saucer by 
flying it into the ground as you try to catch an alien low on 
the screen. Five saucers are available for your use. When 
they are all destroyed, the game is over. 

Control the saucer with the cursor movement keys. 
Pressing the CRSR- l key will move the saucer down, 
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while SHIFT-CRSR- t will move it up. To move it left 
and right, use CRSR- — and SHIFT-CRSR- — . 

Load the game by typing LOAD''SPACE 
CRASH",8 and pressing the RETURN key. After about 
20 seconds, the computer will say READY, indicating 
that the game is loaded. Then type RUN and press the 
RETURN key. The title screen will be displayed for 
about 30 seconds, before the saucer flies across the 
screen to begin the game. 


Space 

Crash 


Programmer's Notes 

Redefined Characters. None of the graphics shapes 
available among the standard Commodore 64 graphics 
characters were suitable for some of the objects in this 
game, so special graphics shapes were customized by use 
of redefined characters. Setting up redefined or custom 
characters in a program involves many programming 
steps. 

Every character or graphic symbol displayed on the 
screen is defined by a series of eight bytes. The eight-byte 
definitions of the C-64's standard character set are stored 
in the computer's read-only memory (ROM). To redefine 
them, first you must copy the regular character set into 
an area of memory where it can be modified. Then for 
each character that is to be redefined, the eight bytes in 
the appropriate place in the relocated character set must 
be replaced with other bytes that will create the desired 
new shape. 

The method used in Space Crash to make the 
replacements can be a timesaver and can help maintain 
flexibility for future changes. The bytes used to redefine 
the characters are in DATA statements beginning at line 
1380. Each line contains nine numbers, but only the last 
eight are used for character redefinition. The first 
number is the relative position, within the character set, 
of the character being replaced. (See appendix E of the 
Commodore 64 User's Guide for the numeric position of 
each character.) 

Lines 310 and 320 actually do the redefinition, stor¬ 
ing the last eight numbers in each DATA statement into 
the position in the relocated character set that was indi- 
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cated by the first number. The last DATA statement 
contains only a -1, which indicates the end of the 
redefinition data. In line 310, the statement IFA=—1 
THEN330 stops the moving of data when a -1 is found. 

Using this method, new lines of DATA statements 
for new custom characters can be added or deleted, with 
no concern for their position within the other DATA 
statements, and existing DATA statements can be reas¬ 
signed to different characters. The only requirement is 
that the last DATA statement contain a — 1. 

This is just a summary of the method used for char¬ 
acter redefinition in this game. To learn all the details of 
the procedure, you should consult a book on C-64 graph¬ 
ics programming. 


Hints for Modifying the Game 

The total number of aliens on the screen at once is con¬ 
trolled by the variable NA, set to 5 in line 40. Changing 
the 5 to a larger number will increase the difficulty of the 
game. Or instead, increment NA as the score increases. 
Too large a number for NA, however, will make the game 
move very slowly. 

The saucer's speed in all four directions is set in lines 
520-550. The size of the saucer's moves, for any cursor 
key pressed, is set to 8 pixel units for each cursor key 
pressed. Change some or all of these 8's to make the 
saucer move at different speeds when it goes in different 
directions. For example, the saucer could move down 
quickly but rise up very slowly. In order for the saucer/ 
alien collision routines to work correctly, all values must 
be multiples of 4. 

Currently, no matter how many aliens are pre¬ 
vented from landing, more will keep appearing. You 
might want to consider having a fixed number of aliens to 
contend with, and award a bonus if they are stopped 
successfully. 

If you prefer to control the saucer with a joystick 
instead of the cursor keys, change lines 520-550, using 
lines 1000-1050 in the game Into the Pot as a model. 


Space 
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Space 

Crash 


Major Routines 

0030-0336 INITIALIZATION 

Initialize variables and sound. Print title 
screen. Set color and position of saucer sprite 
and load its data into memory, setting 
unused bytes in the page to 0. Lower top of 
BASIC memory. Load new character set if 
not already present. Do title animation and 
print game screen. 

0370-0380 SPIN SAUCER 

Make saucer sound. Update sprite memory 
with new shape. 

0510-0570 MAIN LOOP 

Check for keyboard input and adjust saucer's 
position. Descend an alien and spin saucer. 
Check for saucer hitting ground or an alien. 
Move saucer. 

0660-0711 SAUCER CRASH 

Lower saucer as its shape data in memory is 
being randomly changed. Re-initialize 
saucer and check for end of game. 

0740-0775 SAUCER HIT ALIEN 

Determine which alien was hit. Erase alien 
and adjust score. 

0780-0830 NEW ALIEN APPEARS 

Pick random position, set position variables, 
and display alien. 

0850-0890 ALIEN DESCENDS 

If object at ground level was hit, erase it. If 
ground was hit, display landed alien and 
update score. Check for end of game. Make 
new alien appear. 

0910-1120 PRINT GAME SCREEN 


1160-1280 PRINT TITLE SCREEN 
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1300-1315 END OF GAME 

Move saucer and print game over message. 

1330 SPRITE DATA 

1380-1670 CHARACTER DATA 


Major Variables 

General: 

V Base address of VIC chip 
SO Base address of SID chip 

SC Base address of screen memory 
CL Base address of color memory 
BA Base address of relocated character set 
BR Address of border color 

BK Address of background color 

SR Score 

XP $ String to position cursor on X axis 

YP$ String to position cursor on Y axis 

IN Address for line of blocks at bottom of screen 
BL Blocks left to fill 

Saucer: 

FS() Addresses of sprite data to change for spin 

GA Value for spin -1 

AG Value for spin - 2 

U Pixels moved in Y direction 

VE Pixels moved in X direction 

OM$ Saucer shape for score 

OM Pointer to score saucers 

Aliens: 

NA Number allowed on screen at one time 

AA$ First appearance shape 

WA() Redefined characters for animation 

AC Animation counter 

A() Current position in screen memory 

B() Equivalent X positions in pixels 

C() Equivalent Y positions in pixels 

RX Random X position 

RY Random Y position 
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Sprites 

Line Number Page Description 

1330 13 Saucer 

Redefined Characters 

Line 


Number 

Description 

1380 

Solid block 

1500 

Top of tree -1 

1510 

Top of tree - 2 

1520 

Asterisk 

1530 

Alien -1 

1540 

Alien - 2 

1560 

Alien on ground 

1570 

Alien - 3 

1580 

Alien - 4 

1640 

Score saucer -1 

1650 

Score saucer - 2 

1660 

Score saucer - 3 
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Frank Mikulastik 


Hunchback Blobbis Walks -1 


E quipped with the latest and most fashionable fight¬ 
ing tuxedo and shooting hat, you are out to break 
through the force field that protects three evil Blobbis. 
The force field has five levels, and each shot from your 
top hat will destroy a section of one level. 

The different force fields move in opposite direc¬ 
tions, so when you shoot through one and create a hole in 
the next one, the two holes will soon drift apart. Opening 
up a hole through all five levels just as a Blobbis passes 
over requires clever strategy! 

Each Blobbis has a different method of preventing 
you from penetrating the force field. The most dangerous 
is the Hunchback Blobbis, who drops a deadly pulsar 
from the center of the screen on each trip across the 
screen. If it hits you, it's all over! The Bug-eyed Blobbis 
frustrates you by rebuilding the top two layers of the 
force field on each trip. And the Flashing Blobbis makes a 
confusing and hypnotizing display. 

Hitting any one of the Blobbis will win the game for 
you. As your strategy improves, you should be able to do 
it with fewer shots. Use the joystick to move the player 
sprite, and press the fire button to fire your hat. 
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Load the game by typing LOAD'THE BLOBBIS", 8 
and pressing the RETURN key. After about 50 seconds 
the computer will say READY, indicating that the game 
is loaded. Then type RUN and press the RETURN key. 
After the title screen is displayed for about 20 seconds, 
the instruction screen will appear. When the game is 
over, pressing the fire button will take you back to the 
instruction screen. 

To stop the game, see the special instructions in the 
Introduction for stopping bank-switched games. This 
game uses bank 2 for sprites and graphics. 


Programmer's Notes 

Animation Using Arrays. The main figures in The 
Blobbis are animated with a procedure which uses ani¬ 
mation arrays. The explanation of the procedure is 
involved. Before continuing, you may wish to refresh 
your knowledge of sprites by reviewing that section of 
the Introduction. 

The animation array for each sprite object contains 
the sprite page (memory) locations, or page numbers, in 
the sequence in which the different sprites will appear 
when the figure is animated. A particular page number 
can be used more than once during an animation 
sequence. 

For example, the animation array for the walking 
Bug-eyed Blobbis is S3( ). In line 170, the sprite page 
numbers for each of the eight sprites used in that particu¬ 
lar animation sequence are stored into S3(l) through 
S3(8). B3, which is used to indicate the number of ele¬ 
ments in the array S3( ), is set to 8 in line 175. N3 is used to 
indicate which step in the animation sequence is cur¬ 
rently being executed. 

Remember, the sprite page pointers are at fixed 
locations in memory which are accessed by the VIC chip 
when displaying sprites. In The Blobbis, the variable 
Ml contains the location of the first sprite page pointer, 
which points to the shape data for sprite # 0. Since only 
one Blobbis is on the screen at any particular time, sprite 
# 1 is used for all Blobbis sprite objects. The sprite page 
pointer for sprite # 1 is one memory location after that for 
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sprite #0, or Ml+1. At all times, that location will con¬ 
tain the page number to be used for the next Blobbis to be 
displayed. 

Now look at lines 4150 and 4160 in the MOVE BUG¬ 
EYED BLOBBIS section. First N3, the current sequence 
step counter, is incremented. If it becomes larger than 
B3, the sequence element counter, it is reset to 1 to begin 
a repeat of the sequence. Then sprite pointer location 
Ml +1 is loaded with the contents of the element of the 
animation array indicated by the current value of N3. 
Ml + 1 will now contain the page number of the next 
sprite in the sequence. Each time these instructions are 
executed, the next sprite in the walking sequence for the 
Bug-eyed Blobbis is displayed. 



Hints for Modifying the Game 

The speed of each figure in the game can be changed in 
the following way: The position of each Blobbis is incre¬ 
mented by 6 pixels at the beginnings of lines 4010, 4120, 
and 4210. Change the + 6 in these lines to other values to 
make them move more quickly or slowly. Lines 4000, 
4100, and 4200 determine when each Blobbis does its 
special trick by monitoring its location. The amount of 
movement for the player sprite is set to + 9 or - 9 in lines 
1040 and 1050, depending on the position of the joystick. 
Change these values for a faster or slower player sprite. 

Try adding an additional Blobbis. Using lines 
4100-4190 as a model, set up new animation arrays and 
major variables. You might consider having your new 
Blobbis rebuild different rows of the force field. 


Major Routines 

0010-0430 INITIALIZATION 

Set up memory variables. Set VIC memory to 
bank 2. Read sprite data and make sound. Set 
up sprite animation arrays. Print title and 
instruction screens. Build force field and ini¬ 
tialize sprites. 
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0500-0590 MAIN LOOP - NOT SHOOTING 

Move player and current Blobbis. Check for 
game over. Select next force field row and 
move it. 

0700-0790 INITIALIZE SPRITES 
Set starting positions. 

0800-0860 BUILD FORCE FIELD 

0865-0890 BUILD FLOOR 

1000-1090 PLAYER MOVEMENT DRIVER 

Read joystick. If fire button pressed, begin 
MAIN LOOP - SHOOTING. If joystick 
moved, do MOVE PLAYER. 


1100-1190 MOVE PLAYER 

Change pointer to animation array. If player 
not at edge of screen, move player. 


2000-2090 MOVE ROW TO THE RIGHT 

Move one row of the force field to the right. 


2100-2190 MOVE ROW TO THE LEFT 

Move one row of the force field to the left. 


3000-3090 MAIN LOOP - SHOOTING 

Main in control loop for player shooting. Fire 
the bullet and move it until it hits something. 
Move a Blobbis and check for its being hit. 

4000-4090 MOVE HUNCHBACK BLOBBIS 

Do special action if in correct position. 
Change pointer to animation array. If at edge 
of screen, select next Blobbis. 

4100-4190 MOVE BUG-EYED BLOBBIS 

Do special action if in correct position. 
Change pointer to animation array. If at edge 
of screen, select next Blobbis. 

4200-4290 MOVE FLASHING BLOBBIS 

Do special action if in correct position. 
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Change pointer to animation array. If at edge 
of screen, select next Blobbis. 

5000-5091 PRINT TITLE SCREEN 

5100-5180 PRINT INSTRUCTION SCREEN 

5200-5290 GAME OVER 

Make a sound while waiting for fire button to 
start a new game. 

6000-6004 SCREEN CHANGE SOUND 

6010-6013 BLOBBIS MOVEMENT SOUND 

6020-6026 INITIAL BULLET SOUND 

6030-6036 A BLOBBIS IS HIT 

Flash and make a sound. 

6040-6046 FORCE FIELD SOUND 

6050-6056 PLAYER WALKING SOUND 

6060-6069 MOVING BULLET SOUND 

6080-6089 GAME OVER SOUND 

6100-6119 BUG-EYE ACTION 

Dances and fills in top 2 rows of force field. 

6200-6290 FLASHER ACTION 

Flashes the screen and does some flips. 

6300-6390 HUNCHBACK ACTION 

Drops the pulsar and does a dance. Check for 
pulsar hitting player. 
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6400-6490 PULSAR HITS PLAYER 
Player flashes and sound. 

7000-12310 SPRITE DATA 
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Major Variables 

Memory Pointers: 

V Base address of VIC chip 

SI Base address of SID chip 

M1 Base address of sprite pointers 

SM Base address of screen memory 
CM Base address of color memory 

Player: 

S1 () Animation array for walking 
B1 Length of walk sequence 

D Direction of movement 

X X position 

N1 Animation counter 

Hunchback Blobbis: 

S2() Animation array for walking 
B2 Length of walk sequence 

N2 Walk animation counter 

D2() Animation array for dance 
C2 Length of dance sequence 

N6 Dance animation counter 

P2 X position 
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Bug-Eyed Blobbis: 

S3() Animation array for walking 
B3 Length of walking sequence 
N3 Walk animation counter 
D3() Animation array for dance 
C3 Length of dance sequence 

P3 X position 

Flashing Blobbis: 

S4() Animation array for walking 
B4 Length of walking sequence 

N4 Walk animation counter 
D4() Animation array for dance 
C4 Length of dance sequence 

P4 X position 

Pulsar: 

S5() Animation array for pulsing 
B5 Length of pulse sequence 
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N5 Animation counter 

P5 Y position 

General: 

WS Which Blobbis is on screen 
F Game status 

K Which row of force field to move 

BL Number of bullets fired 


Sprites 


(NOTE: All sprites are in bank 2) 


Line Numbers 

Page 

07550-07670 

20 

07680-07810 

21 

07820-07950 

22 

07960-08080 

23 

08090-08220 

24 

08230-08350 

25 

08360-08490 

26 

08500-08630 

27 

08640-08770 

28 

08780-08900 

29 

08910-09040 

30 

09050-09170 

31 

09180-09310 

32 

09320-09450 

33 

09460-09580 

34 

09590-09720 

35 

09730-09850 

36 

10000-10130 

37 

10140-10270 

38 

10280-10400 

39 

10410-10540 

40 

10550-10670 

41 

10680-10810 

42 

10820-10950 

43 

10960-11080 

44 

11090-11220 

45 

11230-11350 

46 

11360-11490 

47 


Description 

Hunchback Blobbis walks -1 
Hunchback Blobbis walks - 2 
Hunchback Blobbis walks - 3 
Hunchback Blobbis walks - 4 
Hunchback Blobbis dances -1 
Hunchback Blobbis dances - 2 
Hunchback Blobbis dances - 3 
Bug-eyed Blobbis walks -1 
Bug-eyed Blobbis walks - 2 
Bug-eyed Blobbis walks - 3 
Bug-eyed Blobbis walks - 4 
Bug-eyed Blobbis walks - 5 
Bug-eyed Blobbis dances -1 
Bug-eyed Blobbis dances - 2 
Bug-eyed Blobbis dances - 3 
Bug-eyed Blobbis dances - 4 
Bug-eyed Blobbis dances - 5 
Flashing Blobbis walks -1 
Flashing Blobbis walks - 2 
Flashing Blobbis walks - 3 
Flashing Blobbis walks - 4 
Flashing Blobbis spins -1 
Flashing Blobbis spins - 2 
Flashing Blobbis spins - 3 
Flashing Blobbis spins - 4 
Flashing Blobbis spins - 5 
Flashing Blobbis spins - 6 
Player walks right -1 
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Sound 
the Whistle 



S ound the Whistle is a two-player game similar to 
football or soccer, but without a ball. The game 
requires strategy and quick response to the opposing 
player's actions. Each player controls a four-member 
team. The object is to score points by running one of your 
team members through the opponent's goal line and off 
the edge of the screen, while preventing a member of the 
opposing team from running past your own goal line. If 
you run off your own side of the screen, you earn a point 
for the other team. The first team to score ten points wins 
the game. 

The currently selected team member, or runner, is 
displayed in a different color than the rest of the team, 
and is moved with the joystick in the desired direction of 
movement. The runner can be advanced toward the goal 
line or used to block the other team's runner. To change 
runners, hold down the fire button and point the joystick 
either up, down, left, or right. Each direction corresponds 
to a particular team member. If a runner bumps into 
another team member, the runner will be blocked and 
forced back. 

Load the game by typing in LOAD"SOUND 
WHISTLE",8 and pressing the RETURN key. After 
about 20 seconds, the computer will say READY, indi- 
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Sound 
the Whistle 


eating that the game is loaded. Then type RUN and press 
the RETURN key. 


Programmer's Notes 

Considerations in Creating Sounds. Because sound is 
one of the basic means of communicating with a com¬ 
puter user, it is a very important element of most games. 
Clever use of sound effects can add interest to any game 
and improve even the best ones. 

The sound chip in the Commodore-64 computer has 
three separate voices which may be used alone or 
together to achieve an amazing range of sound effects. 
However, synthesizing a particular sound can be very 
difficult. 

Imagine the sound you want to create, and think 
about its "color" or texture. Is it random, or does it follow a 
pattern? Is it buzzy or smooth? Is it shrill and piercing, or 
is it soft? Gunshots, explosions, and wind are noise-like 
sounds and may be reproduced quite well by the noise 
waveform. Piercing sounds are best produced by the 
sawtooth waveform. The triangle waveform is effective 
for soft sounds, while the pulse waveform is best for 
brassy sounds. 

The C-64 provides a tremendous assortment of 
interrelated methods to control sounds, and experimen¬ 
tation is often required when the desired sound doesn't fit 
any easily defined category. Refer to the Commodore 64 
User's Guide for an introduction to the many possibilities 
for sound and music creation. Varied and novel examples 
of sound creation can be found in all the games in this 
book. Other books dedicated to C-64 sound and music 
programming are available in bookstores. 

Upper/Lower Case Mode. Lines 20220 through 21220 
of the Sound the Whistle program listing contain some 
symbols that appear, at first glance, to be errors. Actually 
they are the upper case characters of text that was 
entered in upper/lower case mode. When this data is 
printed to the screen, it will be converted correctly to 
upper and lower case. 
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Hints for Modifying the Game 

The statement FL%(I) = 3 in line 675 sets to 3 the dis¬ 
tance a player bounces back after hitting another player. 
Change the 3 to a larger number for greater bounce. 

You might want to modify the way the game is 
played, by making the following changes. 

1) Make a new rule that all team members on the team 
must cross the goal line before a point may be 
scored. 

2) Remove from the game any team member who has 
been blocked more than three times. 

3) Make the selected team member's figure invisible 
by changing it to the same color as the field. 

4) Make each team member a different color, to sim¬ 
plify selecting them. 


Major Routines 

00196-00209 INITIALIZATION 

Initialize sprites and sound. Blow whistle 
and display the title screen. Wait for a 
key to be pressed while flashing title in 
different colors. Display instructions and 
again wait for a key to be pressed. 
Reinitialize sprites. 

00215 MAIN LOOP 

Alternate between each game player. 

00500-00680 MOVE TEAM MEMBERS 

Read joystick for one player. If fire but¬ 
ton is pressed, select appropriate team 
member. If block flag for that player is 
not set, read joystick for team member 
direction. If there is movement, make 
sound. Determine which sprite to use, 
and move it. If border has been hit, 
bounce back. If score has been made, 
print score and check for end of game. 
Check for sprite collisions and set block 
flags. 
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10000-10006 

SPRITE DATA 

12000-12050 

PRINT BACKGROUND 

Print the play field. 

13000-13150 

INITIALIZE SPRITES 

Initialize positions and colors. Blow 
whistle. 

15000-15070 

END GAME 

Turn everything off and make game end¬ 
ing sound. Wait until either a fire button 
is pressed or 45 seconds have elapsed, 
then restart game. 

16000-16010 

UPDATE SCORE 

Print each player's current score. 

17010-17030 

SELECT TEAM MEMBER 

Choose team member and change its 
color. 

18000-18020 

INITIALIZE SOUND 

19000-19010 

SCORE SOUND 

20000-20040 

PRINT TITLE 

Print title and wait for key to be pressed. 

21000-21250 

PRINT INSTRUCTION SCREEN 

Print instructions and wait for key to be 
pressed. 


Major Variables 

General: 

V Base address of VIC chip 
S Base address of SID chip 
JS% Joystick status 
S%() Score 

Ql% Sprite collision flag 
CQ% Block counter 
P%() Powers of 2 
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Team members: 

CL%() Colors 

N% () Team member numbers 

FL%() Block flags 

DX%() Change in horizontal positions 

DY % () Change in vertical positions 

X%() Horizontal positions 

Y%() Vertical positions 

Z%() Sprite being moved 


Sprites 

Line Numbers Page 
10000-10006 250 


Description 

Team Member 
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B umper Ball is a "pong" or handball-type game pit¬ 
ting one player against the computer. You score 
one point each time you hit the white ball, controlling the 
black paddle with the joystick. The computer gets one 
point each time you miss and let the ball go off the edge of 
the screen. To have the next ball served, press the fire 
button. The red bumper ball sometimes adds confusion 
by deflecting the white ball. 

Hitting the ball into the white plunger on the right 
side of the screen will earn you a bonus of 30 points. 
Hitting the plunger, however, will freeze your paddle 
until the ball bounces back from the plunger and hits 
either the paddle or the red bumper ball, or is lost off the 
screen. If neither your paddle nor the red bumper ball is 
lined up to return the ball again, the computer will also 
get a 30-point bonus! Therefore it is good strategy always 
to return the paddle to the center of the screen after 
hitting the ball. 

The white ball will start out moving slowly, but its 
speed will increase if your paddle is moving when it hits 
the ball. The speed of both the white ball and the red 
bumper ball are increased when bonus points are scored. 

The game is over when you miss the fifth ball. The 
program will then subtract the computer's score from 
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Bumper 

Ball 


yours to give you a final score. If you decide to quit while 
you still have balls left to play, press F7 to get your total 
score. Then you can press F7 to start a new game. 

Load the game by typing LOAD"BUMPER 
BALL", 8 and pressing the RETURN key. After about 15 
seconds, the computer will say READY, indicating that 
the game is loaded. Then type RUN and press the 
RETURN key. When the game screen displays the flash¬ 
ing message YOUR SCORE, press the fire button to have 
the first ball served. 


Programmer's Notes 

Programming for Speed. The MAIN CONTROL 
LOOP routine in this program is located at the beg innin g, 
where it will run most quickly. The initial setup routine, 
however, must be executed first. Therefore the 
GOTO170 statement in line 10 jumps over the main loop 
to execute the setup routines, and then the GOTO20 
statement in line 1370 returns to execute the main loop. 
For further discussion on programming for speed, see the 
Programmer's Notes for the game Yorick's Revenge. 

Use of Variables to Position Cursor. In programming 
screen displays, it is often necessary to position the cur¬ 
sor at certain locations on the screen in order to begin 
displaying at those locations with PRINT statements. 
This usually involves printing a series of CURSOR- 
DOWN and CURSOR-RIGHT commands, which appear 
in the program listing as special symbols, before printing 
what is to appear on the screen. 

Bumper Ball accomplishes this without cluttering 
up the program with cursor symbols. In line 360, the 
variable PY$ is set to contain one HOME-CURSOR char¬ 
acter code and twenty-five CURSOR-DOWN's. In line 
370, the variable PX$ is loaded with forty CURSOR- 
RIGHT's. (The character codes for all keyboard com¬ 
mands are listed in appendix F of the Commodore 64 
User's Guide.) 

Calculations made elsewhere in the program then 
position the cursor within the C-64's twenty-five rows 
and forty columns. For example, when the ball hits the 
paddle, the player's updated score is displayed by the 
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PRINT statement in line 680. LEFTS (PY, 6) and 
LEFTS (PX, 32) cause the leftmost 6 characters of PYS 
and the leftmost thirty-two characters of PXS to be 
printed. The effect, therefore, is to position the cursor on 
row 6 at column 33. By simply looking at the PRINT 
instruction, you can easily tell where on the screen the 
displayed data will appear. 

Complications in Collision Detection. When the 
game logic requires that collisions between two moving 
objects be detected, the size and speed of the objects 
always involve trade-offs. If the distance one object trav¬ 
els in each move is greater than the size of the other 
object, it is possible for them to appear to pass directly 
over one another without a collision being detected. 

In Bumper Ball, for example, the ball's maximum 
move of 30 pixels may allow the ball to pass over the 
paddle occasionally. On the other hand, it does permit 
the game to build up to a fast pace. A lower maximum 
would permit more reliable collision detection but would 
make the game less exciting to play. 



Hints for Modifying the Game 


In implementing any of the following suggestions, bear in 
mind the preceding discussion regarding collision detec¬ 
tion, and carefully observe the effects on the reliability of 
the collision detection as you experiment with different 
values for the variables. 

The statements POKEV-f23,0:POKEV + 29,0 in 
lin e 300 set the sizes of the paddle and ball sprites. For a 
larger red bumper ball, change both 0's to 4's. For a larger 
paddle, change the first 0 to 2. And to make both the 
bumper ball and the paddle larger, change the first 0 to 6 
and the second 0 to 4. 

As the white ball is accelerated, it is prevented from 
moving too quickly by the check ABS(CM) < 30 in line 
710. The ball is allowed to travel a maximum of 30 pixels 
per move. Experiment with different limits. A similar 
check for the speed of the red bumper ball is made in line 
1170. 

When the joystick is activated, the paddle travels up 
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or down the screen 20 pixels per move. For a paddle that 
is more or less responsive, adjust the +20 in line 30 and 
the -20 in line 40. 

The white ball's initial horizontal and vertical speed 
are controlled by the variables BM and CM, respectively, 
which are set in line 220. The ratio of these two numbers 
determines the angle of bounce. Experiment with other 
values for these two variables. 

The numbers after the IFCX >... portion of line 130 
are the horizontal and vertical pixel coordinates of the 
range over which the red bumper ball can move. To alter 
the bumper ball's boundaries, change those numbers. 

Since the main loop has to be as efficient as possible 
to maintain adequate speed, we suggest that any changes 
be limited to variable values, sprite sizes, and features 
outside the main loop. 


Major Routines 

0020-0150 MAIN CONTROL LOOP 

Read joystick and move paddle. Check for 
ball hitting bonus plunger or being missed by 
paddle. Move ball and bumper ball. Bounce 
ball if it hits wall, bumper ball, or paddle. 

0170-0200 PRINT TITLE SCREEN 


0220-0370 INITIALIZATION 

Initialize variables and load sprites into 
memory while flashing title screen and mak¬ 
ing sounds. 

0390-0660 PRINT GAME SCREEN 

Initialize game screen variables and print 
screen. 


0680-0720 BALL HIT PADDLE 

Update and print score. If paddle was mov¬ 
ing, speed up white ball. 

0740-0790 BALL MISSED PADDLE 

Update and print computer score. Make 
sound and flash COMPUTER SCORE block. 


Bumper 

Ball 




Bumper Ball 63 


0810 RANDOM NOTE 

Sound a note of random frequency. 

0840-0920 PREPARE FOR NEXT BALL 

Check for no balls left to play. Sound random 
notes and flash YOUR SCORE block while 
waiting for fire button or F7 to be pressed. 

0940-1020 SPRITE DATA 

1040-1150 BALL HIT PLUNGER 

Speed up ball and bumper ball. Capture ball 
with plunger. Sound random notes and flash 
BUMPER BALL block. Add and print bonus 
points one at a time. Release next ball. 

1170-1180 SPEED UP BUMPER BALL 

Check maximum speed before increment¬ 
ing. 

1200-1270 PRINT FINAL SCORE 

Sound random notes as the difference 
between your score and computer score is 
calculated and printed. Run game again if F7 
is pressed. 

1290-1380 RELEASE NEXT BALL 

Pick random spot for bumper ball in front of 
plunger. Move plunger in and out to deliver 
next ball into play. Move ball across screen 
until it hits bumper ball. Continue normal 
play. 


Major Variables 

General: 

JS Address of joystick port 

JV Value at joystick port 

V Base address of VIC chip 

SO Base address of SID chip 

CL Base address of color memory 
SC Base address of screen memory 
BR Address of border color 
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BK Address of background color 

MY Y position of paddle 

MS Computer score 

GG Your score 

PO Points to add to score 
PY $ String of down cursors 
PX$ String of right cursors 
BL$ () Balls left to play strings 
XX Pointer to BL$ () 

Ball: 

BX X position 

BY Y position 

BM Pixels moved in X direction 
CM Pixels moved in Y direction 

Bumper ball: 

CY Y position 

CX X position 

MC Pixels moved 


Sprites 

Line Numbers Page 

0940-0970 14 

0990-1020 15 


Description 

Paddle 

Ball and Bumper 


Bumper 

Ball 
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Balloon explosion 


Load the game by typing LOAD"RIDE THE 
WIND", 8 and pressing the RETURN key. After about 35 
seconds, the computer will say READY, indicating that 
the game is loaded. Then type RUN and press the 
RETURN key. When clouds appear on the title screen, 
press the space bar to go to the instruction screen, and 
press it again to start the game. When the game is over, 
pressing the space bar will return you to the instruction 
screen. 

To stop the game, see the special instructions in the 
introduction for stopping bank-switched games. This 
game uses bank 2 for sprites and graphics. 


Programmer's Notes 


Ride 

the Wind 


Calculating Effect of Outside Forces on Moving 
Objects. The motion of the balloon sprite in Ride the 
Wind is controlled by calculating the effect of three 
different forces - gravity; wind direction, which is dif¬ 
ferent at various heights above the ground; and the 
upward thrust imparted by a blast from the balloon's 
heater. 

On each pass through the control loop (lines 
500-520), 1.5 units of gravitational attraction are added to 
the balloon's downward velocity. When the space bar is 
pressed, 3 units of lift are subtracted from the downward 
velocity. Thus use of the heater overcomes gravity and 
causes the balloon to rise gradually. 

The wind is calculated with the help of a sine wave 
and the Y position (height) of the balloon. This gives the 
effect of wind blowing to the left at one level, no wind at 
the next level, and then wind blowing to the right at the 
next. 

The speed of the balloon's horizontal motion is 
changed by the wind as it passes through a particular 
level. If the balloon has no horizontal velocity or is travel¬ 
ing in the direction of the wind, it picks up speed until its 
speed matches that of the wind. If its horizontal motion is 
against the wind, the balloon begins to slow down. 
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Hints for Modifying the Game 

You can make Ride the Wind more or less difficult by 
changing the gravity, wind, heater lift values, and 
number of balloons. In the statement Y1=Y1+1.5 in line 
1010, change the 1.5 to increase or decrease the force of 
gravity. In the statement Yl=Yl—3 in line 1020, change 
the 3 to increase or decrease the heater lift amount. To 
change the wind velocities, represented by variable Q in 
line 1050, change the 2.5 to multiply the sine function by a 
different value. For example, if you multiplied by 5.0, the 
winds would be twice as strong at each level. In line 780, 
set M to a value other than 3 to allow more or fewer 
crashes before the game ends. 

Addition of a penalty for colliding with a cloud 
would be another way to add interest to this game. You 
might also want to use a different shape of sprite for the 
clouds, perhaps one which would be easier or harder to 
avoid with the balloon. 


Major Routines 

0009-0430 INITIALIZATION 

Set VIC memory to bank 2, initialize vari¬ 
ables, and load sprite data into memory. 
Print title, instruction, and game screens. Set 
up balloon and cloud sprites, and heater 
sound. 


0500-0520 CONTROL LOOP 

Move balloon and clouds. Check for good 
landing or balloon crash. 

0700-0790 SET UP BALLOON AND CLOUDS 
Initialize sprite pointers. 

0800-0890 SET UP HEATER SOUNDS 

0900-0990 PRINT GAME SCREEN 

1000-1190 MOVE BALLOON 

Add gravity pull. If space bar pressed, select 
balloon sprite with heater, add heater lift 


Ride 
the Wind 
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force, and set heater sound volume. If space 
bar not pressed, select regular balloon sprite. 
Calculate and add wind force to balloon's 
motion. 

2000-2090 MOVE CLOUDS 

Calculate new position for each cloud. If a 
cloud moves off edge of screen, reposition it 
to other side. 

3000-3090 COLLISION DETECTION 

If balloon hit edge of screen or platform sup¬ 
ports, make explosion and sound. If more 
balloons to play, begin again. Otherwise, end 
game. 

3100-3190 LANDING DETECTION 

Check to see if position of balloon is same as 
a landing pad. 

3200-3290 LANDED 

If pad has not been landed on before, do 
cloud spin and sound. 

4000-4190 PRINT TITLE SCREEN 

4200-4390 PRINT INSTRUCTION SCREEN 

5000-5290 SOUND ROUTINES 
Three sound routines. 

5500-5590 GOOD LANDING 

Spin clouds and make a sound. 

6300-8000 SPRITE DATA 


Ride 

the Wind 


Major Variables 

General: 

V Base address of VIC chip 
SI Base address of SID chip 
Q1 Wind direction at Y level of a cloud 
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SC Score 

N () Frequency of notes 

Balloon: 

XI Horizontal velocity 

Y1 Vertical velocity 

X X position 

Y Y position 

SP Sprite page number to use (17 or 18) 

SV Sound volume of heater 

M Balloons left to play 

Q Wind direction at balloon's position 

Landing Pads: 

L Pad j ust landed on 

LD All pads balloon has landed on 
K1 Position 

K2 Color 


Sprites 


(NOTE: All sprites are in bank 2) 


Line Numbers 

Page 

6300-6430 

16 

6580-6710 

17 

6720-6850 

18 

6900-7030 

19 

7040-7170 

20 

7180-7300 

21 

7310-7440 

22 

7450-7570 

23 

7600-7730 

24 

7740-7870 

25 

7880-8000 

26 


Description 
Cloud 1 

Balloon with heater off 
Balloon with heater on 
Balloon explosion -1 
Balloon explosion - 2 
Balloon explosion - 3 
Balloon explosion - 4 
Balloon explosion - 5 
Cloud 2 
Cloud 3 
Cloud 4 
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Death Valley 
Patrol 


Igor Tulchinsky 



C atastrophe in the barren Death Valley! Aircraft 
crews dropping paratroopers on maneuvers have 
been given faulty maps, and many are being dropped in 
the wrong areas and stranded. As the commander of the 
Death Valley Patrol, you must rescue as many of these 
victims as you can. However, raging winds in the ravines 
and side canyons are waiting to smash your rescue heli¬ 
copter against the canyon walls. 

There's no time to waste. All the stranded victims 
are slowly wasting away - even the ones in canyons you 
haven't reached yet. Their waving will become less fran¬ 
tic, and eventually they will fall to the ground and be 
attacked by vultures. When their predicament becomes 
so bad that future efforts would be in vain, the game will 
end. 

Controlling the helicopter with a joystick, you can 
rescue a victim by landing very close or by touching the 
victim. Landings must be made at very low speed, or you 
will crash. Controlling the helicopter is very tricky. Use a 
light touch when you move the joystick in the direction 
you want to travel. After you have successfully rescued 
the three victims in a particular canyon, fly off the edge of 
the screen, either above ground or in a tunnel, and you 
will enter a new canyon with three more victims to save. 


Death Valley 
Patrol 
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Death Valley 
Patrol 


You are allowed to crash and try again four times in 
each canyon. The game will end on the fifth crash or if 
you run out of fuel. If your fuel gauge shows that you are 
getting low, you may refuel by returning to base and 
gently landing. However, you can eventually lose by 
using up all the fuel available. 

Landing beside the victim is the preferred method of 
rescue, and is rewarded with the most points. In each 
canyon, the first victim rescued by landing is worth ten 
points; the second, a hundred; and the third, a thousand. 
When the rescue is made by touching the victim, you 
receive only five points. If any victim in the valley has 
been rescued by landing, a bonus is awarded, based on 
the time required to perform all the rescues in that valley. 

Load the game by typing in LOAD"DEATH 
VALLEY", 8 and pressing the RETURN key. After about 
35 seconds, the computer will say READY, indicating 
that the game is loaded. Then type RUN and press the 
RETURN key. The title screen will be displayed for 
about 20 seconds before the game begins. When the game 
is over, press the fire button to start a new game. 


Programmer's Notes 

Controlled Random Screens. Death Valley Patrol 

uses a number of different play screens as the game 
advances. There are three different ways that these could 
have been programmed: completely predefined screens, 
completely random screens, or controlled random 
screens. 

Completely predefined screens can create an inter¬ 
esting game, but they have some disadvantages. The 
screen definitions use a large amount of memory and 
generally require extensive programming time. Once 
completed, the game lacks variety because the player 
will always advance through exactly the same screens in 
the same sequence each time the game is played. 

Random screens are generated at the time the game 
is played. Their basic design is controlled by general rules 
or parameters, but the details are determined by a ran¬ 
dom number generator. Completely random screens are 
relatively quick to program and present an infinite vari- 
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ety of challenges for the game player. However, the 
scores on such games do not accurately represent the 
player's ability, since the ease of playing each screen is 
unpredictable, and repeated playing will not necessarily 
result in greater skill. 

The method used in Death Valley Patrol retains 
the programming ease and variety of challenges achieved 
by completely random screens, but adds an element of 
predictability. The result is an adventurous game which a 
player can learn to play with increasing skill. 

Controlled random screen generation makes use of 
the "seed" which drives the C-64's BASIC random number 
generator. The same set of random numbers is generated 
each time a particular seed value is used. In Death Val¬ 
ley Patrol, the CREATE BACKGROUND routine 
executes the random number generator function, with 
the contents of the variable RP as the seed. The routine 
then uses the resulting random numbers to calculate the 
contours of the landscape on the screen and the points at 
which the victims fall. 

The contents of RP are determined by the course of 
the game. Each time the player successfully rescues the 
victims on a screen and flys the helicopter off the edge, 
the value of RP is incremented by an amount that 
depends on where the helicopter exits: 0.5 for the left 
edge, 1.0 for the right edge, or 3.0 for the top of the screen. 

The sequence of the game screens follows a tree- 
structure. As long as a player follows a particular 
sequence of screens and exit points, the game will be 
identical each time it is played. But if the helicopter is 
flown off any screen in a direction different from that 
taken previously, a different screen will appear and the 
sequence for the rest of the game will be changed. 



Hints for Modifying the Game 

Several key variables affect the difficulty of playing 
Death Valley Patrol. You can alter the number of heli¬ 
copter crashes allowed by changing the 5 to some other 
value in line 33140. The statement DF = DF + .l in line 
31005 strengthens the force of the wind. Change the .1 to a 
different positive value to alter the degree of strengthen¬ 
ing. 


Death Valley 
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The speed required for a safe base landing can be 
altered by changing the two occurrences of >2 in line 
33006 to other values. Similarly, the speed for safe land¬ 
ings in the canyon can be changed in line 33301. 

The length of time required for the victims to com¬ 
pletely waste away can be adjusted in the statement 
Cl = Cl -I-1 in line 210. Changing the 1 to a larger value will 
speed up the process, making the game more challenging. 

Try adding a requirement that each victim must be 
brought back to the base before the next rescue attempt. 
When a rescue is achieved, set a flag which makes it 
impossible to pick up other victims. Then clear the flag in 
the base landing routine. 

Experiment with creating a totally new set of 
screens, by adjusting the values that are added to RP in 
lines 220, 230, and 240. 



Major Routines 

00009-00010 INITIALIZATION 

Print title screen. Initialize sprites and 
sounds. Create first background screen. 

00020-00260 MAIN LOOP 

Check fuel supply and test for collisions. 
Check for expired victims. Adjust heli¬ 
copter velocity according to joystick 
direction. Adjust position of helicopter 
according to velocity, and change pitch 
of helicopter sound. Check to see if heli¬ 
copter is outside of screen bounds. If it is 
and all three victims are gone, advance to 
new screen. If all victims are not gone, 
make sure helicopter stays within 
screen. 


Death Valley 
Patrol 


01000-01030 ADJUST FUEL GAUGE 

If conditions are right, increase strength 
of wind in a random wind sector. 


10000-10156 SPRITE DATA 
























































Death Valley Patrol 75 


30000-30100 SPRITE INITIALIZATION 

Do checksum to see if sprites already 
loaded. If not, load sprites. Define sprite 
size, color, etc. Set all needed constants. 


31000-31650 CREATE BACKGROUND 

Create mountains, cave, and split screen. 

Drop victim. Set landing detectors. Draw 
score and fuel gauge. If subroutine is 
accessed from REFUEL, return. Create 
wind matrix. 

31700-31710 CLEAR A HOLE 

31900 CREATE A PSEUDORANDOM 

NUMBER 

32000-32010 SOUND INITIALIZATION 

33000-33150 SPRITE-BACKGROUND COLLISION 
Check for base landing and landing 
speed. If too high, explode. If low 
enough, refuel. Check for cliff collision. 

If collision detected, explode. 

33300-33400 VICTIM RESCUE 

If landing speed is too high, explode. 

Determine type of rescue and increment 
score. 

34000-34040 SPRITE-SPRITE COLLISION 

Check to see which victim was rescued. 

Branch accordingly. 

35000-35020 PRINT SCORE 

Change score to a five-character string 
value and print it. 

36000-36090 PRINT TITLE SCREEN 

Print title and make sprites jump and Death Valley 

wave Patrol 

40000-40030 ENDING 

Make sound and end game. 
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Landing Detector 
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Major Variables 

General: 

PK Joystick status 

V Base address of VIC chip 

Cl Game time counter 

RP Random number seed 

SC Score 

C2 Random wind counter 

DF Difficulty 

AG Fuel left at base 

E Current mountain height 

D Last mountain height 

A Mountain position 

R Random number 

F Refueling flag 

LV Level 

TP Highest canyon number of last stage 
DX() Horizontal wind 
DY () Vertical wind 

Helicopter: 

S() Sprite pointers 

DX Change in horizontal movement 

DY Change in vertical movement 

X Horizontal position 

Y Vertical position 

NH Number of crashes 

GS Fuel left 

Victims: 

T() Sprite pointers 

NK Number rescued by touching 

NM Number rescued by landing 


Sprites 



Line Numbers 

Page 

Description 

10000-10006 

192 

Helicopter -1 

10010-10016 

193 

Helicopter - 2 

10020-10026 

194 

Victim -1 
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10030-10036 

195 

Victim - 2 

10040-10046 

196 

Victim - 3 

10050-10056 

197 

Victim - 4 

10060-10066 

198 

Victim - 5 

10070-10076 

199 

Victim - 6 

10080-10086 

200 

Victim - 7 

10090-10096 

201 

Victim - 8 

10100-10106 

202 

Landing detector 

10150-10156 

203 

Explosion cloud 
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Mission: 

Tobor 


Charles Mott, Jr. 



A utomated atomic energy reactors provide power 
for operations on the planet Tobor. The reactors 
are shielded by a protective force field and guarded by an 
automated patrol ship. This protection system has devel¬ 
oped a serious malfunction and is preventing delivery of 
essential coolant packs. As a result, the reactors are now 
in danger of overheating. 

You have been dispatched to drop new coolant 
packs from your space shuttle to the robots below. These 
robots continuously move back and forth between each 
reactor and its supply area. If a coolant pack falls just in 
front of a robot, the robot will catch the pack and take it to 
the reactor. Keep an eye on the reactor's coolant level 
gauge. To save the reactor, you must successfully deliver 
enough coolant packs to fill it up. 

The protective force field constantly pushes your 
shuttle up and away from the reactor. If you penetrate 
the shield, the defective protection system will 
strengthen the field and repel you, using more coolant in 
the process. If you drop a coolant pack from just above 
the shield, the protection system will dispatch a patrol 
ship to investigate. A collision with the patrol ship will 
not harm your shuttle, but it will cause the reactor to use 
still more coolant. 



Mission: 

Tobor 
















































80 Arcade Games for the Commodore 64 



When you have returned a reactor to normal opera¬ 
tion, you will be moved on to the next one. The robot at 
each new reactor will move faster than the previous one, 
frantically trying to find coolant packs. If you allow any 
reactor's coolant level to drop below the critical point, the 
reactor will melt down and the game will end, displaying 
your rating as a shuttle pilot. 

Use the joystick like the control stick in an airplane 
to move the shuttle. Push it forward to dive, pull it back to 
climb, and move it left or right to move sideways. To 
release a coolant pack, press the fire button. 

Load the game by typing LOAD"MISSION 
TOBOR", 8 and pressing the RETURN key. After about 
30 seconds, the computer will say READY, indicating 
that the game is loaded. Then type RUN and press the 
RETURN key. The title screen will be built on the 
screen, complete with instructions. Then after a delay of 
about 20 seconds, the game will begin. 


Mission: 

Tobor 


Programmer's Notes 

Special Use of the Keyboard Buffer. One way of han¬ 
dling a program which uses many sprites and requires a 
great deal of memory is to write it in two parts. Part 1 of 
this game is called MISSION TOBOR on the disk. It 
prints the title screen, scrolls the instructions, and loads 
the sprite data into memory in preparation for Part 2, the 
actual game, which is called && MISSION. Part 2 is then 
run by making special use of the keyboard buffer. 

The Commodore 64 has a special section of memory 
called the keyboard buffer, beginning at memory loca¬ 
tion 631, for temporary storage of keyboard input. It can 
hold up to ten characters and is automatically cleared as 
its contents are executed. Any time a key is pressed, a 
special code for that key is stored in the keyboard buffer 
until it can be processed. 

For the C-64 to load and run Part 2, it must be given 
instructions similar to those that were entered to load and 
run Part 1. To do this, Part 1 prints the instruction 
LOAD"&& MISSION", 8 onto the screen, in the same 
color as the background so that it will be invisible. Then, 
in lines 3610-3650, it stores the following directly into the 
keyboard buffer: two CURSOR-UP commands, a 
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RETURN command, the characters R, U, N, and a colon, 
and then another RETURN command. (The character 
codes for all keyboard commands are listed in appendix F 
of the Commodore 64 User's Guide.) 

When Part 1 ends, the C-64 executes the commands 
that are in the keyboard buffer. The two CURSOR-UP 
commands position the invisible cursor to the invisible 
LOAD line. The RETURN command causes the 
LOAD"&& MISSION",8 to be executed, loading Part 2. 
The next positions in the keyboard buffer contain RUN: 
and a RETURN. This is equivalent to typing in RUN and 
pressing RETURN, so Part 2 then begins running. 


Hints for Modifying the Game 



Part I. To present the title screen in a different way, 
modify lines 700 and 730. The RIGHTS instructions are 
string functions that control the point in the string vari¬ 
ables X$ and Z$ at which the print statement is to begin, 
and how many characters after that point will be printed. 
Replacing the RIGHTS instructions with LEFTS or 
MID$ will create different effects. 

The PRINT TITLE SCREEN routine is designed to 
gradually build the game name on the screen as the 
sprites are loaded into memory. The name is camou¬ 
flaged until it is completely built. To have it presented 
more quickly, eliminate the GOSUB2000 in line 720. 

If you study the program carefully and learn to use 
the string commands, you can find other, more compli¬ 
cated ways of changing the title screen presentation. 


Part 2. To change the initial speed of the robot, modify 
the value assigned to PH in line 103. The speed of the 
robot at each new reactor is increased in lines 3205-3209. 
Change the values assigned to PH to make the robot 
speed up by a different amount, or slow down instead. To 
change the speed of the shuttle, assign a different value to 
AP in line 103. To change the speed of the patrol ship, 
assign a different value to U in the same line. 

The strength of the force field's push against the 
shuttle is set with the statements MX = MX + 1: 
MY=MY—1 in line 390. Change the +1 and -1 to other 


Mission: 

Tobor 






























82 Arcade Games for the Commodore 64 


A 

kfi 

B 

C 


0 

129 

0 

.55. • • • iilik. 

0 

66 

0 

.50R2;1.. iiliSiSii. 

0 

98 

128 


0 

16 

8 

, , P ill!!. .:!!!!. 

1 

3 

128 

.eses.. sesssii.. ;;iii. 

1 

24 

128 

KS_!!I:3. 

0 


0 

_ m, 55— 

4 

66 

32 

.ill;].. iiliBB. .33. 

2 

36 

64 

.55.. iil;»5..iilii. 

1 

36 

128 

_iilii..iilil-55..55... 

8 

129 

16 

55. .55. .. .35.. !!IiL. iilil.. ill 

1 68 

18 

34 

55.... iilil_. 65-ill 

1 66 

8 

66 

. . iilil. . 5556ilil_iilil.. 55.. 

33 

96 

132 

. .5535..55. .iiliSilil..iilililil. 

20 

74 

40 

.iiliSiiiJBS.. 5555..... 

2 

145 

64 

.55... . iilil. . iilil. 

. 1 


128 


. 0 

0 

0 


. 0 

0 

0 


. 0 

0 

0 


. 0 

0 

0 


r 



BHNK-# 0 F’RGE-# 218 



Broken reactor—2 





values for the force field to have a different effect on the 
shuttle's behavior. 

The time before a reactor's coolant runs out is con¬ 
trolled by the variable PI, which is set to 1 in line 90. 
Changing the 1 to a 2 will cause the reactors to melt down 
in half the time. The initial state of the next reactor, 
determined by its sprite pointer, is set with the statement 
PS = 202 in line 948. Changing the 202 to a higher 
number, not greater than 216, will make the next reactor 
start out in a more critical state. 

Set a limit to the number of coolant packs available 
to be dropped during the game. Or set a limit for each 
reactor, and decrease it for each reactor serviced. You 
will have to add variables for the limit that is set and the 
number of packs dropped. 


Mission: 

Tobor 


Major Routines 

PARTI 


0070-0320 INITIALIZATION 

Begin loading sprite data into memory. Ini¬ 
tialize array variables for title and instruc¬ 
tions. 


0510-0730 PRINT TITLE SCREEN 

Manipulate and print title array variables 
with sound and extended background color, 
while loading sprite data. 

0740-0840 SCROLL INSTRUCTIONS MESSAGE 

Scroll instruction message in Y$( ) across 
middle of screen while loading sprite data. 

2000-2100 READ SPRITE DATA INTO MEMORY 

Read one byte of sprite data into memory. 

3500-3680 RUN PART 2 

Lower top of BASIC memory and use key¬ 
board buffer to run Part 2. 
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5000-5131 

0040-0140 

0147-0480 

0500 

0600-0620 

0800-0895 

0900-0940 

0955-1000 

1100-1155 

2000-2310 


SPRITE DATA 

Data statements for sprites. Every four lines 
is a complete sprite. 


PART 2 


INITIALIZATION 

Read data statements for score ratings and 
joystick control array. Initialize variables 
and sprites. Print background screen. 

MAIN CONTROL LOOP 
If joystick activated, move shuttle; other¬ 
wise let it drift. Move robot and pack, if one 
was dropped. Check for robot catching pack. 
If robot is at reactor with pack, switch to 
reactor sprite with more coolant. If reactor 
full, print score and start new mission. If 
reactor empty, end game. 


READ JOYSTICK 
MOVE SHUTTLE 


INITIALIZE SPRITES 

Sprite positioning and definitions. 


END OF GAME 

Flash border and background while making 
melt-down noises. Print overall rating. Wait 
for fire button to start new game. 


CATCH COOLANT PACK 
If pack is within 10 pixels of robot, switch 
robot sprite to one carrying a pack, and set 
flags. 

PRINT BACKGROUND SCREEN 

sound routines Tobor 

Three sound routines. 




Mission: 
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3200-3250 PRINT SCORE 

Print rating points and increase speed of 
robot. 


Major Variables 


PARTI 


General: 

S Base address of SID chip 
X$() Title word "MISSION" 

Zf() Title word "TOBOR" 

Y$() Instructions 

A$ Temporary variable for instruction scroll 


PART 2 


Mission: 

Tobor 


General: 

V Base address of VIC chip 

SI Base address of SID chip 

SC Base address of screen memory 
BR Border color 
BK Background color 

JS Address of joystick port 

DR() Joystick directions 
FG() Event flags 
S1-S8 Sprite pointers 
YL Number of reactors saved 
LP Pointer to ratings 

G$() Ratings 

Shuttle: 

PI Sprite pointer 
MX X position 
MY Y position 
AP Pixels moved 

Reactor: 

PS Sprite pointer 
PI Sprite pointer increment 
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Robot: 

RB Sprite pointer 

R X position 

PH Pixels moved 

Patrol ship: 

BP X position 

U Pixels moved 


Sprites 


Line Numbers 

Page 

5000-5003 

202 

5004-5007 

203 

5008-5011 

204 

5012-5015 

205 

5016-5019 

206 

5020-5023 

207 

5024-5027 

208 

5028-5031 

209 

5032-5035 

210 

5036-5039 

211 

5040-5043 

212 

5044-5047 

213 

5048-5051 

214 

5052-5055 

215 

5056-5059 

216 

5060-5063 

217 

5064-5067 

218 

5068-5071 

219 

5072-5075 

220 

5076-5079 

221 

5080-5083 

222 

5084-5087 

223 

5088-5091 

224 

5092-5095 

225 

5096-5099 

226 

5100-5103 

227 

5104-5107 

228 

5108-5111 

229 

5112-5115 

230 

5116-5119 

231 


Description 

Reactor and coolant -1 
Reactor and coolant - 2 
Reactor and coolant - 3 
Reactor and coolant - 4 
Reactor and coolant - 5 
Reactor and coolant - 6 
Reactor and coolant - 7 
Reactor and coolant - 8 
Reactor and coolant - 9 
Reactor and coolant -10 
Reactor and coolant -11 
Reactor and coolant -12 
Reactor and coolant -13 
Reactor and coolant -14 
Reactor and coolant -15 
Broken reactor -1 
Broken reactor - 2 
Broken reactor - 3 
Shuttle craft -1 
Shuttle craft - 2 
Shuttle craft - 3 
Shuttle craft - 4 
Shuttle craft - 5 
Shuttle craft - 6 
Shuttle craft - 7 
Barrel 
Pipework 
Pod 

Coolant pack 
Robot -1 



Mission: 

Tobor 
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Mission: 

Tobor 




































































Cosmo's 

Rescue 


Frank Mikulastik 
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W hile exploring the hazardous cavern of the 
yellow monster Grunk-Snort, you and your 
purple friend Cosmo have become separated, and he has 
been captured by the dreaded Grunk-Snort. You must 
guide your rescue ship through the cavern, pick up 
Cosmo, and make your way back home. You have only 
three chances to rescue Cosmo. If you touch a wall, bump 
into Grunk-Snort, or run out of fuel, you will have to start 
all over again. Your ship awaits you on the landing plat¬ 
form at the upper left-hand corner of Grunk-Snort's cav¬ 
ern. 

Keep an eye on the fuel indicator. The landing plat¬ 
form also serves as a fuel station at which you may refuel 
if necessary. To make a safe landing on the platform, 
your ship must be moving very slowly with no side 
motion. If you make it back to the landing platform after 
picking up Cosmo, your heroism and skill will be 
rewarded with one point for each unit of fuel remaining. 

Control the ship with the joystick. Gravity will be 
pulling you down at all times. Pressing the fire button 
fires the main engines, which thrust upward. Left or right 
motion of the joystick fires the side thrusters. Apply 
thrust very cautiously. Controlling the ship can be tick¬ 
lish, and you may have to play many times before you 
learn to do it perfectly. 



Cosmo's 
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Cosmo's 

Rescue 


Load the game by typing in LOAD"COSMO'S 
RESCUE", 8 and pressing the RETURN key. After about 
45 seconds, the computer will say READY, indicating 
that the game is loaded. Then type RUN and press the 
RETURN key. After the title screen is displayed, the 
instruction screen will appear and pause for about 15 
seconds. Then you will be asked to press the fire button to 
start the game. When the game is over, press the fire 
button to return to the instruction screen. 

To stop the game, see the special instructions in the 
Introduction for stopping bank-switched games. This 
game uses bank 2 for sprites and graphics. 


Programmer's Notes 

Bank Switching to Handle Large Programs. Because 
Cosmo's Rescue is a very large game, and in addition, 
uses 26 sprites for animation effects, a special technique 
was required to load the game and all the sprite data into 
memory at the same time. 

The ''Sprites'' section of the Introduction explains 
that the C-64's memory is divided into four banks of 16K 
each. The computer's VIC chip is designed to "see" and 
access only one 16K bank at a time. Since the VIC chip 
performs all sprite handling, it must be set to access the 
bank containing the pages where the sprite shape data is 
stored. 

Bank 0 of the computer, the first 16K of memory, is 
ordinarily used for most purposes unless other provisions 
are made. When the computer is first turned on, the VIC 
chip is set automatically to bank 0, and when programs 
are loaded, they are stored there. When a program and its 
sprite data both fit into 16K, no further action is needed. 
The sprite data will be stored into pages in bank 0, where 
the VIC chip is set to find it, and processing will begin. 

If the program and its sprite data require more than 
16K, however, the sprite data must be stored into pages in 
another bank. The VIC chip must then be "bank- 
switched" or set to access the other bank for the sprite 
data. The program remains in bank 0 and is executed 
there. 

In addition to sprites, the VIC chip also controls 
other graphics features. Bank switching must be imple- 
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mented carefully, so that all related functions are han¬ 
dled properly. 

Cosmo's Rescue stores its sprite data in bank 2. The 
instructions which bank-switch the VIC chip are in lines 
37 through 40. You may also want to study Ride the 
Wind, Squirrel Away, and The Blobbis, all of which 
use bank switching. For information on the instructions 
necessary to use bank switching in other programs, refer 
to one of the books available on Commodore 64 program¬ 
ming. 


Hints for Modifying the Game 

The beginning fuel supply is set with the statement 
FU = 600 in line 3030. The refueling amount is set in a 
similar statement in line 3618. Change the 600 to get a 
different amount of fuel, and change the PRINT state¬ 
ment in line 3110 to match. The number of crashes 
allowed before the game is over is set with the statements 
ME = 3 and LEFT : 3 in line 335. Change the two 3's to 
other values. 

The starting positions for Cosmo, Grunk-Snort, the 
player figure, and the landing platform can be altered by 
making changes to lines 3000 through 3030. These 
changes can be tricky, so be very careful in making them. 

For Cosmo's vertical position, change the statement 
POKEV +13,92 in line 3010 to use a value other than 92. 
Set G1 to a different value in line 3005 to change the 
figure's horizontal position. To change the left and right 
movement boundaries for Cosmo, change the values of 
El and FI in line 3005. 

For Grunk-Snort's vertical position, change the 
statement POKEV+ 15,200 in line 3020 to use a value 
other than 200. Set G2 to a different value in line 3005 to 
change the figure's horizontal position. To change the left 
and right movement boundaries for Grunk-Snort, change 
the values of E2 and F2 in line 3005. 

For the landing platform's horizontal position, 
change the statement POKEV +10,32 in line 3000 to use 
a value other than 32. Change the value of T5 in line 3000 
to change its vertical position. 

The green player figure starts out just above the 
landing platform, so its starting vertical position is calcu- 



Cosmo's 

Rescue 





















90 Arcade Games for the Commodore 64 



lated in line 700 using T5. To move the green figure's 
starting position, change the values added to Y and 
assigned to X in line 700. 

In programming Cosmo's Rescue, care was taken 
to make the layout of the cavern easy to change. To 
design your own cavern, change the PRINT statements 
in lines 3112 through 3158. Getting the new cavern screen 
to look just the way you want can be tedious and frustrat¬ 
ing, but after it is done, you will have a new game to play. 

You might want to create several cavern screens, 
each in its own subroutine. Then program the game to 
move on to the next screen after each one has been played 
successfully. You would then have programmed an 
example of completely predefined screens (see the Pro¬ 
grammer's Notes for the game Death Valley Patrol). 


Cosmo's 

Rescue 


Major Routines 

0010-0335 INITIALIZATION 

Set VIC memory to bank 2. Print instruction 
screen and load sprite data. Set up sprite 
arrays for animation and turn on sprites. 
Print play screen. 

0400-0490 MAIN LOOP 

Move green alien and check remaining fuel. 
Fall, if out of fuel. Check for landing on plat¬ 
form, hitting cavern or monster, picking up 
purple alien and successful rescue. Move 
purple figure and yellow monster. 

0700-0790 INITIALIZE GREEN ALIEN 

Set starting position, size, and color of green 
alien and his ship. 

1000-1490 MOVE GREEN ALIEN 

Read joystick and add pull of gravity. If fire 
button pressed, subtract from gravity and 
adjust fuel. If joystick moved, update hori¬ 
zontal speed and adjust fuel. Calculate new 
position and select proper thruster sprite. 
Sequence to next green alien sprite and print 
remaining fuel. 
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3000-3090 

3100-3190 

3200-3290 


3300-3390 

3500-3590 

3600-3690 

3700-3790 

4000-4090 


4100-4190 


4300-4390 

4500-4590 

4600-4690 


INITIALIZE SPRITES 

Set starting positions and colors. 

PRINT PLAY SCREEN 

GAME OVER 

Do animation sequence for purple alien and 
yellow monster while waiting for fire but¬ 
ton. 

PRINT INSTRUCTION SCREEN 

SCREEN CHANGE 

Screen change sound and flash. 

GREEN ALIEN LANDS ON PLATFORM 
Fall if landing speed is too high. Check for 
purple alien being rescued. Refuel. 


A 


Wfl 

0 

B 

0 

C 

0 

_^■■BH. . 

. MBHB. . . 

15 

195 

240 

... arm . 

. . . 

13 

195 

112 

.... ■■■Kill 

zwmmm. .. 

15 

235 

240 

.Bill.... 

... iiZil. 

2 

0 

128 

.iiZil_ 

....iiZll. 

2 

0 

128 

..;;z;i..;;z;i_ 

.... ;;zii. 

34 

0 

136 

.. iiSslilsIllil_ 

....HZiZiZiZiZii. 

42 

0 

168 

..3I».. Bill- 

_HZ!).. iiZil. 

34 

0 

136 

..issiiisiiisi!— 


42 

0 

168 

. .iiiliiliZiiii.... 

_ HZiZiZiZiZii. 

. 42 

0 

168 

.iiZiZiiiZiZiZiiiZiZiZilil..... 

. 2 

170 

128 

..iiZiZiZiZiZiZiZiZiZiZiZil. 

. 2 

170 

128 

_iiZiZiZiliZiZiiiZilililliilllilii... 

. 10 

170 

160 

_ iiZiiiZiZiZiZiZiZiZiZiZiZiZiZilil. . . 

. 10 

170 

160 

.... iiZiiiZiZiZiZiZiZiZiZiZiZiZiZiZil... 

. 10 

170 

160 

_;izizissz ! .ziz;zizizizizizizisiiii... 

. 10 

170 

160 

.i;iii!z;i.. 


. 2 

130 

128 

.iiliZiZil.. 

..HZiZiZiZiZii... 

. 2 

130 

160 

_ HZiZiZiZiZii. . 

..HZiZiZiZiZii... 

. 10 

130 

160 

_HZiZiZiZiZii.. 


> 10 

123 

0 


^BRNK-# 2 PRGE-# 46* 


Yellow monster—6 


GREEN ALIEN FALLS 

Do falling animation sequence and check for 

end of game. 


MOVE PURPLE ALIEN 
Sequence to next sprite in animation and 
calculate new position. Reverse direction if 
movement boundary reached. 

MOVE YELLOW MONSTER 
Sequence to next sprite in animation and 
calculate new position. Reverse direction if 
movement boundary reached. 


PICK UP PURPLE ALIEN SOUND 
Sound for green alien rescuing purple alien. 

FALLING SOUND 

SUCCESSFUL RESCUE 

Calculate and print score. Make sound and 

continue game. 


Cosmo's 

Rescue 


7000-10540 SPRITE DATA 
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Major Variables 

General: 

FU Fuel remaining 

FS Score counter 

CT Successful rescue flag 
ME Rescue attempts left 

V Base address of VIC chip 

SI Base address of SID chip 

SM Base address of screen memory 
CM Base address of color memory 
Ml Base address of sprite data 
T5 Landing platform Y coordinate 

Green Alien: 

MS() Animation array for flying 
A1 () Animation array for falling 
T1 Length of flying sequence 

T Length of falling sequence 

X X position 

Y Y position 

XI Number of pixels to move in X direction 
Y1 Number of pixels to move in Y direction 
X2 New pixel count for X direction 

Y2 New pixel count for Y direction 

K1 Page number for bottom thruster sprite 
K2 Page number for left thruster sprite 
K3 Page number for right thruster sprite 

SP Animation counter 


Cosmo's 

Rescue 


Purple Alien: 

GS() Animation array for walking 
T3 Length of animation sequence 
El Maximum left position 

FI Maximum right position 

A3 Animation counter 

G1 X position 

D1 Direction of movement flag 

Yellow Monster: 

MM() Animation array for walking 
T4 Length of walking sequence 

A4 Animation counter 
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E2 Maximum left position 

F2 Maximum right position 

G2 X position 
D2 Direction of movement flag 


Sprites 


(NOTE: All sprites are in bank 2) 


Line Numbers 

Page 

07000-07130 

16 

07140-07270 

17 

07280-07400 

18 

07410-07540 

19 

07550-07670 

20 

07680-07810 

21 

07820-07950 

22 

07960-08080 

23 

08090-08220 

24 

08230-08350 

25 

08360-08490 

26 

08500-08630 

27 

08640-08760 

28 

08770-08900 

29 

08910-09040 

30 

09050-09180 

31 

09190-09320 

32 

09330-09450 

33 

09460-09590 

34 

09600-09720 

35 

09730-09860 

41 

09870-09990 

42 

10010-10130 

43 

10140-10270 

44 

10280-10400 

45 

10410-10540 

46 


Description 

Green alien -1 
Green alien - 2 
Green alien - 3 
Green alien - 4 
Green alien - 5 
Green alien - 6 
Green alien - 7 
Left thruster 
Right thruster 
Bottom thruster 
Green alien falling -1 
Green alien falling - 2 
Green alien falling - 3 
Ship 

Landing platform 
Purple alien -1 
Purple alien - 2 
Purple alien - 3 
Purple alien - 4 
Purple alien - 5 
Yellow monster -1 
Yellow monster - 2 
Yellow monster - 3 
Yellow monster - 4 
Yellow monster - 5 
Yellow monster - 6 
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Mazemaster 


Igor Tulchinsky 


M azemaster tests your ability to maintain a sense 
of direction in a complex network of corridors. 
The game simulates 3-D by providing a perspective view 
of the corridor down which you are moving. The view 
shows the floor and ceiling, the right and left walls, and 
the surface facing you at the end of the corridor. The floor 
and ceiling are alternately red and white, each color 
panel marking the distance you will move with one step. 
Doors in the walls are indicated by black panels. In 
addition, a top view of the maze is available. 

There are two different ways of playing this game. 
In either option, the object is to finish in the shortest time 
possible. A final score is awarded, based on your playing 
time and the complexity of the maze. 

In option 1, PAINT THE FLOOR, you must paint the 
floor yellow by traveling through the entire maze. When¬ 
ever you retrace your steps, the floor in front of you will 
be yellow instead of red and white. (Since you will start at 
a random point within the maze, it may be necessary to 
retrace some of your steps in order to travel through the 
entire maze. 

In option 2, FIND THE TREASURE, a treasure is 
hidden in the maze for you to find. The treasure's location 
is shown in the top view but invisible to you as you 
approach it in the corridor. Your distance from the trea¬ 
sure is displayed, however, so you can tell whether you 
are moving toward or away from it. 


Mazemaster 
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When you select an option, you will also determine 
the complexity of the maze by entering a number 
between 1 and 200 and pressing RETURN. The program 
will then randomly generate the maze, displaying a map 
as it develops. After the maze is drawn, different areas 
will be colored to indicate the wall color in those areas. 
The wall colors will help you relate the corridor perspec¬ 
tive view to the top-view map as you play. 

Pressing the space bar moves you forward one step, 
and the R and L keys turn you right and left. To turn 
around and go back, turn in the same direction two times. 
In order for you to turn and go through a door, the door 
must be at the edge of the screen, indicating that you are 
standing next to it. After you turn, you will have a per¬ 
spective view down the corridor you have turned into. If 
you turn and are not standing next to a door, you will just 
be looking at a wall. 

If you become confused as you are playing and 
would like another top view of the maze, press H for 
help. This time, your position will be marked on the map 
with a U, D, R, or L (for up, down, right, or left), which 
indicates the direction you are facing within the maze as 
it is displayed. If you are playing PAINT THE FLOOR, 
the areas already painted will be yellow. 

Load the game by typing in LOAD 
"MAZEMASTER", 8 and pressing the RETURN key. 
After about 20 seconds, the computer will say READY, 
indicating that the game is loaded. Then type RUN and 
press the RETURN key. Select an option from the game 
menu and enter the desired complexity. The program 
will then begin drawing the maze. After you finish a 
game, press the space bar to return to the menu screen. 


Mazemaster 


Programmer's Notes 

Completely Random Screen Generation. The mazes 
in Mazemaster are created by a completely random 
method. See the Programmer's Notes for the game Death 
Valley Patrol for a discussion of completely predefined, 
completely random, and controlled random screen gen¬ 
eration. 
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Simulated Three-Dimensional Display. One of the 
unusual features of this game is its three-dimensional 
display of a maze. Each interior view of a corridor shows 
the nearest five steps, with the floor, ceiling, and walls 
converging toward the center of the screen. Alternating 
red and white ceiling and floor panels mark the steps. If a 
wall in one of the five steps opens onto a side corridor, it is 
displayed as a black panel. When the player is within five 
steps of the end of a corridor, the center of the screen 
shows the color of the wall that is being approached. 

One set of array variables is used for all the different 
interior views of the corridors. The string arrays G$( ), 
C$( ), R$( ) and L$( ) represent the colors of the floor, 
ceiling, left walls and right walls, respectively. Each 
array has five elements, one for each step in the view. As 
the end of the corridor is approached and there are fewer 
than five steps to display, the other array variables are 
assigned to be the color of the end wall, so that it appears 
to grow larger and larger with each step. 

Other variables are used to indicate the direction the 
player is facing in the maze and to monitor the features of 
the corridor that are to be displayed on the next step. As 
the player moves forward in the maze, the contents of the 
string array variables are modified to reflect the new 
view. 


Hints for Modifying the Game 

The score is calculated and printed in lines 40040-40055, 
based on time and maze complexity. You might want to 
add a penalty for looking at the maze map. First, add the 
line 1005 NA = NA + 1 to count the number of times the 
maze map is displayed. Then add 40051 SC = SC — 
NA*10 to include the new counter in the score calcula¬ 
tions. The numbers 1005 and 40051 are line numbers 
which indicate the location in the program where you 
should place the new lines. 

Mazemaster has instructions to end a game when a 
time limit is reached, but the maximum number of sec¬ 
onds is set with the statement TM = 1E9 in line 22070. 
The expression 1E9 is BASIC notation for ten raised to the 
ninth power - a gigantic number! Change this line to set 


Mazemaster 
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the time limit to a realistic number based on maze com¬ 
plexity. 

You might want to try playing in the dark: turn off 
the three-dimensional display and just make a "bump" 
sound when you hit the end of a corridor. Or make the 
treasure periodically move around within the maze. 

Major Routines 

00013 INITIALIZATION 

Set up sound. Print title screen. Offer and 
accept game and complexity choice. 
Create selected maze. Jump to selected 
main loop. 

00100-00410 3-D PRINTOUT OF MAZE 

Print out 3-D maze as calculated in next 
section. 

00530-00720 3-D PRINTOUT CALCULATIONS 

Set up direction variables. Calculate col¬ 
ors for ceiling, floor, left, and right walls 
for five squares in direction player is fac¬ 
ing. 

01000-01060 PRINT HELP MAZE 

Display top view of maze. Display player 
and, if in FIND THE TREASURE option, 
display treasure. 

02000-02110 PAINT FLOOR MAIN LOOP 

Select starting point. Print out maze, 
squares painted, and time. Wait for key 
to be pressed, while incrementing time. 
React to key pressed. 

03000-03110 FIND TREASURE MAIN LOOP 

Select starting point. Print out maze, dis¬ 
tance, and time. Wait for key to be 
pressed, while incrementing time. React 
to key pressed. 


Mazemaster 
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20030-20090 CREATE RANDOM MAZE 

Create maze, by picking random direc¬ 
tion and testing spot two units in that 
direction. If spot is empty, link it to maze. 
If filled, pick new direction. If all direc¬ 
tions are filled, pick new starting point. 

20100-20180 COLOR THE MAZE 

Color all walls, ceilings and floors. 


21010-21080 


PRINT TITLE 
Display heading. 


22010-22080 PRINT GAMES MENU 

Print menu and enter all inputs. 

40005-40080 GAME OVER 

Sound end of game sound. Calculate 
score. Wait for key to be pressed, then 
resume game. 

50000-50010 SOUND INITIALIZATION 


55010 


SOUND A BEEP 


Major Variables 

General: 

M%() Maze 

C$() Ceiling color 

G$() Ground color 

R$() Right wall color 

L$() Left wall color 

D() Directions 

CM Complexity 

F3 Space taken flag 

G$ Game number 

DX() Horizontal component 

DY() Vertical component 

D1 Check for adjacent corridors (right) 

D2 Check for adjacent corridors (left) 


Mazemaster 
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Player: 

XX Horizontal distance "seen" 

YY Vertical distance "seen" 

X Horizontal position 

Y Vertical position 

D Direction 

Treasure game: 

A Horizontal position 

B Vertical position 

Paint game: 

NY Number of squares painted yellow 

NB Number of squares 

P Position of next yellow square 



Mazemaster 




Appendix A 


Game Programs 





Rocket Lander 


Charles Mott Jr. 


© REM *&&&3* 

1 REM * ROCKET LANDER =*= 

2 REM # EV CHARLES MOTT, JR. *s 

3 REM 3+s <C> 1984 FANFARE HOUSE, INC. *e 

4 REM * BOX 3062 HOUSTON, TX 77253 * 

5 REM 

6 

*7 REM INITIALIZATION 

3 ! 

S* PR I NT " n" ; = POKE5324S+2 1 .. © : POKE53280, 1 : R 
OKE532S 1 g 

1© FORT-0TO62 = POKE832+T, 255 = NEXT 

11 EA=14336:V=53248:SL=56334:SC=1024:RS= 
2©4© : TU= 1 

12 I FPEEK < 1 -4552 > =255THENPOKE53272 >21 

13 30*54272 : FORT=0TO24: POKESO+T, © = NEXT 

1 5 POKESO + 24 , 15 : POKESO+6 > 2-4© = POKESO+ 1, 15 
sGOSUB800 

2© X& < 1 > = " |-,-I " : X4?<2> = " \~T~i " : X*C3>* H 

2- 5 y jz— 9 ^650, ^128^ ^ 

nwmmmmmmmmmmmmmmmmm mmmmmmmmwn 

27 REM PRINT TITLE SCREEN 

23 : 

3© PR I NT ’■ ra»OPDaTi >R TAB < 1 3 > " ROCKET LANDER " 

35 F0RT=1T014 : PRINT'NEXT 

-4© PRINT" <C> 1984 FANFARE HOUSE.. I 

NC. " 

5© pr i nt ■■ yarn bv Charles mott, j 

r. 

60 FORT=0TO313 : REACH = POKE122S8+T> R : NEXT 
67 = 

S3 REM PRINT INSTRUCTION SCREEN 

63 = 

7-© PRINT"73raWllBfl ROCKET —RIGHT. 

.... PRESS FI" 

‘7’5 PRINT"WWJ ROCKET —LEFT. 

--PRESS F3" 

3© PRINT"WWJ ROCKET—UP. 

. - PRESS F5" 

3- 4 PR I NT " S) 

35 PRINT" £) LAND ROCKET ON BLACK LAND I 

NO PRD " 

36 PRINT" fil 

87 : 

S3 REM LORD CHRRRCTER DRTR 

S3 : 

3© POKE52,12©:POKE56,12©•SK=© 

116 FORT*1TO1©0© : NEXT = GOSUB900 : OOSUB80© 

117 PR I NT "m SI GET READY — ROCKETS RPP 

RORCHING 

12© POKESL, < PEEK< SL > RND254 > 

1 3© POKE 1 PEEK < 1 > RND25 1 

1 -4© FOR I =©T0255 : FOR J *0TO7 = POKEBR+ I ^8+J > P 
EEK<V+I*8+J>=NEXTJ,I:GOSUB90© 

1 5© POKE 1 PEEK < 1 > OR-4 : POKESL > REEK < SL > OR 1 
16© PR I NT " rj" = POKEV+24, <PEEK<V+24>RND240 
> OR 1 4 

170 FORT*14552TO14552+143 = RERDR = POKET, R = 
NEXT:SK=© 

13© 

131 REM PRINT BACKGROUND 

132 : 
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Rocket 

Lander 

Program 


200 PR I NT ” ra" ; : FORT = 1 TQ2 = RR I NT F1C CC CCCCCC 
C C C C C C C C C [ C C [ c c c c c c c c c t c c c c c c c c M ; : NEXT 
210 FORJ=1T025 = POKESO+4^ 33 : FORT-0TO9 = ROK 
ESO+1 .. T*=3 

215 POKESC+30+SK+T, 160 = POKESC+SO + 30+SK+T 


.. 7* • NEXTT = SK=SK+40 : NEXT - POKESO+4 .. 32 
220 RR I NT *’ 5=3” TRB < 43 > " SROCKET LANDER ” 

225 RR I NT " TRE < 33 > ” SIGOOD ” = RR I NTTRB C31> 

"SLRNDINGS” 

230 RR I NTTRE < 3 1 > " SSI -” : RR I NTTAB < 3 1 > 

■■ =< 0 nra” = pr i nt w tab <31 > scrrshes ” 

232 RR I NTTRE <3U" SSt --" - RR I NTTRE < 3 1 > ” 

=4 0 rra” 

235 RR I NT ” JGfOJ&J&X&a "■ TRE C31> ” SFUEL ROR ” 

240 RRINTTRE C31>" ELANDINO " : RRINTTRE <31 > " 

& -“: RRINTTREC31 > '• sal 100000 J71” 

245 RR I NTTRE < 32 > ” EWPGUNDS =fl"’ 

250 RR I NT ” TRE < 3 > " - ” TRE < 24 > ” . ” = RR I N 

T ” KDESJ” TRE < 1 5 > " . " = RR I NT ” leiHEST' TRE < 3 > ” . ” TRE < 23 


252 PRINT” 

253 PRINT” - 


BS I—i—I sa| 

fSK st&RflC sal 


255 PRINT” 
230 PRINT” 


C-+-=* 

CCC# 


ra| - -*^:=+= < =a| 
rai- =* at&rs** =*&:=¥* < =* 


235 PRINT” . ^3.. CCCCC+- 

270 RR I NT ” J3, CCLCCtC+- 

230 PRINT” ^CCECECCCIH- 


rsi- =+E*fc **=+:*: d =« ■■ 

raj- =*&r=** =*5%r=*+= < asr 1 
sal £S ^ 


C + =l. ” 

230 RR I NT ” ;a.. CCti;CCCtCC[;+ srsi- =3*&r=*^ sat&ra**: < a| 

300 FORT = 1 T05 : RR I NT ” 33C t [ C t [ C C [ C Ct C C C C C C C 

CCCCCCCCCCC":NEXT 

310 RR I NT ” sac cccccccccccctcctccccctcccccc 

320 GOSUB1000 

340 

341 REM INITIALIZE SPRITES 

342 

350 POKERS, 132 - ROKEV+39, 1 : ROKEV+23, 1 = ROK 
EV> 50 = POKEV+1 ^ 0 : ROKEV+2S, 1 : H1=50 : V1=0 

355 POKERS+i> 13 = ROKEV+40, 0 : ROKEV +3, 243 ■ R 

OKEV+2> INT <RND< 1 >*< 244—25 >+23> 

330 ROKEV+37, 3 - ROKEV+3S, 1 1 : POKEV+21 3 = RO 

= 100000 : OOSUE300*: POKESO+ 1 ^ 2 

370 RR I NTLEFT$ < ^ 22 > LEFT^ < H$ .. 3 1 > ” =* 


330 : 


331 REM MRIN GRME LOOP 

332 : 


400 RR=REEK< 137> : IFRR«64THENPOKERS, 132 = R 
OKESO+4,123 

403 POKESO+1 ^ 2 = I FRROSTHENPOKESO+ 1 .. 250 

405 RN«RN+TU = IFRN>30RRN<1THENTU* — TU 

410 IFRR = 4THENPOKERS, 134 = POKEV, HI : RO=RO— 

1 00 : PU= 1 : H 1 =H 1 •+- 1 : I FH 1 >244THEHH 1 =244 

420 I FAfl = 5THENPOKERS 133 : POKEV, HI : PO=PO- 

100:PU=1 : HI=H1—1 : IFH1C24THENH1=24 

43© IFRfl=3THENROKERS, 135 : K1=K1 — - 1 FG=1 - R 

O=PO-500:PU=1 

433 IFRO<0THENRO=0 

435 IFFGTHENFG=0=GOTO440 

437 K1=K1+.1 

440 V 1 = V 1 -+-1 +-K 1 : I FV 1 >2 1 0THENV 1 =2 1 0 = GF= 1 : I 
FK1<—. 1AND< REEK < V+30>AND1 = 1 >THENGOSUB500 
443 I FGFTHENF'OKESO + 4 .. 1 23 : FORT=0TO 1 5STER - 


5 = ROKESO+24, T : NEXT - GOTO608 
445 I FV I d THENV 1 = 1 

447 IFTUC1THENFOKE343, 1 - GOTO450 
443 ROKE343,1© 

45© POKEV+ 1 -• V 1 : RR I NTLEFT$ < .. 1 2 > LEFT$ < H3? 

.. 13>X$<RN> 

430 I FPUTHENPR I NTLEFT$ < ^ 22 > LEFT$ < H^= ^ 3 1 

> ” sal iaHHlBlHI' ! F"0 - POKESO+4, 123 

435 I FF’OC 1 THENPOKERS .. 1 32 : POKESO + 4 .. 1 23 ; GO 
T0437 

470 RU=0=GOT0400 
43© : 

431 REM GOOD LANDING 

432 = 

300 ROKESO + 4, 123 : FORT=15TO0STER—- 1 POKES 

0+24, T : NEXT = POKESO + 4, 123 : POKESO + 24, 15 
3©5 POKESO+4 ^ 33 - FORT = 1 TQ255 : ROKE532S© T ; 
POKESO+ 1 .. T = NEXT = POKESO+4,32 
507 F0RN-1T04 : GOSUB700 : NEXT 

5 10 L_N = L_N-»- 1 = POKE64S -■ 1 = RR I NTLEFT$ < -• 3 > L_E 

FT$<H$, 31 >LN : POKE53280, 1 = POKE138, © 

52© GOSUB1000 

530 K1=0:GF=©=G0T035© 

53© - 

531 REM 

532 = 


CRASH LANDINO 
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•=>©© FORT=0TO6 : POKE53265, PEEK c; 53265 > AHD2 
48 > -#-T : POKE532S1 .. T NEXT 

•=U3 POKE53265 -■ < PEEK < 53265 > RND248 > +3 : POKE 

3 3 3 3 1 .. © 

F0RW*1T0 128 : POKERS, 132 - POKERS, 13 : POK 
E3U-*-l ,Q : PuKERy j > 1^1=• : FORP-1TO30 : NEXT : NEXTQ 
•=■1© PuKEsu+4 .• 128 : CR=CR+ 1 - POKE646 .. 1 : PRINT 
LEFT-4: < V«: .12 > LEFT$ < ,31) CR - POKE 1 ©S .. © 

628 GOSUB1©0© 

630 K1=0:GF=@:GOTO350 

630 

S S* 1 R E M S O U M D R O U T I M E 3 

S!sP 2 : 

T"©© POKESO + 4.33 = FORT* 1 TO 1 ©© : POKESO+1 .. 15 + 
FIBS < 45 — T > = NEXT = POKES On-4 32 RETURN 

800 POKESO + 4, 33 = FORT*= 1 TQ255STEP 1 POKESO 
hhI .. RES 255— T > : NEXT : POKESO + 4. 33 : RETURN 

POKESU+4, 33 : F0RT=1T0255 : POKESO+1 • T : N 
EXT:POKESO+4,33:RETURN 
990 : 

931 REM WRIT FOR KEV FRE3SED 

' 35*3 : 


1 U00 

RNV 
1010 
1 030 

4990 
433 1 
4333 


PR I NTLEFT4 < 4 ;■ LEFT4 C HT 

KEV TO START" 

GETR4 - I ER*= 11 *' THEM 1010 
F R I NTLEFT4 cl V# .. 4 > LEFT$ C H^ 
":RETURN 

REM SPRITE DATA 


4 .. =38^ret33 


4 > " 


4333 REM ROCKET — NO THRUSTER 

30O0 DATM © ., 16,0,0 .. 48 .-©..© .■ 333 .■ O .. © .- 353 ., O .. 
0 .< 386 .■ 0 .. 0 

50 1 © DATA 33© 0 0 .. 33© ■ O .■ O .. 220 .. O O .. 330 ^ 0 

O .. 353 .. O .. O .. 333 


5030 DATR 0.. 16, 353, 16, IS.. 230, IS • 1 s=s . 333 .1 

S 13.. 333 , 16, 29 .■ 22 1 303 

5030 DATA 39 22 1 .. 308 .■ 29 ^ 22 1 .. 208 .. 28.. 220 .■ 2 

08 , 16, 48 , IS.. 16,0, 16,0 

3©33 REM ROCKET — RIGHT THRUSTER 

304© ERTR © .. 16,0,0 .. 48 © .. © .. 252 © .. 0 .. 252 .. 0 .. 

0 , 3 3 S , 0,. © 

303© DRTR 22© © .. © ., 22© ..©.•©., 22© © .. © .. 22© .. © .. 

0,352,0,0,253 

5©t >0 DATR 4©.. 16, 253, IS.- 16, 22©.. IS.. 13, 222, 

IS.. IS*.. 233 .. IS.. 29.. 23 1 208 

5070 DHTA 29 .. 22 1 > 203 23 .. 22 1 .. 208 .- 28 .. 22© 2 

©8 , 16,4© _■ IS.- IS,©, IS.-© 

5075 REM ROCKET — LEFT THRUSTER 

508© DRTR © ., IS,©,©, 4©:O .. © .. 252 .. © ^ © .. 252 © .. 

© ± 236>0^© 

509© DRTR 220, © .. © .. 22©.. © .- © .• 22© .. © .. © ^ 220, © .. 

© .. 252 .. © .. 1 6© .. 252 

5 10© DRTR 0 .- 16,252, IS, 16, 22©, is.. 18, 222, 1 

*=■ -• ly , 323 .• IS, 29 , 22 1,2©© 

5 1 1 © DRTR 29 ., 22 1 .. 2©© .. 29 .. 22 1 2©© .. 2© 22© 2 

0©, 16, 4© .. IS.. 16,8, IS.-© 

3113 REM ROCKET — BOTTOM THRUSTER 

5 1 2© DRTR © .. 16,0,6 .. 4© © .. © .. 252 .■ © ., © , 232 .■ © .. 

© j> 33s .« © , © 

5 1 3© DRTR 22© .,©..© .. 22© .- © .- © .. 22© ..©,©, 22© .. 0 .. 

© > 252 -.©_.©,. 252 

514© DRTR 0,16,252,IS,16,22©,16,18,222,1 

6, 19, 333 .. lt>, 39 , 22 1,30© 

5 1 3© DRTR 2© ., 22 1 , 2©© .. 29 .. 22 1 .- 2©© .. 2© .. 22© , 2 

0© , 16, 33 -• IS, 1S.< 1 36 , 16,0 

5155 REM ROCKET — SPLRT 

3 160 DRTR © ■> © , © © .» © .• © .• © .« © .• © , © „> © , © , © , © , © ^ 

© 

5 1 T© DRTR ©,©,©,©,©..©, 1 24 .. © , 1 .. 255 .. 1 2© V s 

255 1©2,31,235 

5 1 S© DRTR 2©4,31,253 .. 254 .. 1 27 .- 255 255 .. 255 

-• 233.. 255, 125, 255.. 222, 11.. 255.. 23© 

5 1 ©0 DRTR 3,24© ©,©,©,©, © .. © , © .. © .. ©..©,©,©, 

© .. © 

5194 : V 

5195 REM CHARACTER DRTR 

5 1 96 : 


5200 
52 1© 
322© 
523© 
524© 
535© 
5260 
5265 
527© 
32©© 
529© 
53©© 
531© 
532© 
533© 


DATR255 , 253.. 255, 253.. 255, 255, 255, 255 

DRTR355 , 254, 252.* 24S _« 24© , 224 , 1 y 2 .■ 12© 

DRTR255 1 27 ., S3,31,15,7,3, 1 
DRTR 1,3 , 7 s * , 15,31, S3 .- 1 27 255 

DRTR 1 2© - 1 S>2 224 .. 24© ., 24© .. 252 254 ., 255 

DRTR© .. © ^ © .. © ^ © .. © , © .. © 

DRTR©,0,0,0,0,0,51,2©4 
DRTR 1 ©S .. 1 ©S ., 1 ©S © .. © ,.©..© © 

DRTR© ^ © ^ 32 .- 24© , 24© .- 252 .. 254 253 

DRTR© ., © ^ © , 15,31,31,1 27 255 

DRTR© , 234., 234.. 254, 254, 254, 254.. 254 
DRTR255,129,129,129,129,129,129,255 
DRTR3 ,15, S3 .. © 255 . S3 . 15,3 

data i 9224 ©, 232 .. ©, 253 .. 252 .. 24 ©.. 1 ©2 

DHTR24,24,24 , 24 .« 24 .« s© .« 1 3s , 355 
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534© 

535© 

53t>© 


DRTR255,255, 255, © .. 255, 255,355 
DflTR 1 S3 .. 1 S*2 j. 1 S»2 .. 234 .. 252 .. 252 ^ 2 
DRTR3 .. 15.. 15,31,63 ^ 1 27 ^ 1 27 .. 25S 


^ 255 
54,255 


Rocket 

Lander 

Program 



Squirrel Away 


Frank Mikulastik 


0 REM 

1 REM *= SQUIRREL RWflV *e 

2 REM m BV FRANK MIKULASTIK *5 

3 REM *e <C> 1384 FANFARE HOUSE. IMG. *e 

4 REM m BOX 3062 HOUSTON. TX 77253 =* 

5 REM 
1 © 

11 REM INITIALIZATION 

1 2 

3© POKE5324S+21.0:DIM SPC2.2>.BS<4> 

32 POKE56578^ REEK < 56578> OR3 

34 POKE56576 -■ C REEK C 5657=*© > AND252 > OR 1 

3© POKE53272. < REEK < 53272 >AND15)OR0 

38 POKE64S.. 12© = RRINT”n" J 
©S' SM=327©8 

1 05 V=5324S : CM =55296 = S 1 =54272 : Ml = 101 6+SI1 

1 1© SR Cl. 1 > = 1 © -' SR <1.2> = 17 = SR C2. 1 > = 1© : SR < 
2.2>=19=FG=1 

1 2© BS < 1 > =20 : ES < 2 > =2 1 = BS < 3 > =22 : BS *C 4 > =2 1 
1 3© G OS UBS @©0 : ROR 1 = 1 6*64+SMT02'3^64- 1 +SM : 
READR : ROKEI.A : NEXT 

1©© POKEV+28.1:POKEV+23.1=POKEV+23.1 

17© POKEV+37.©:POKEV+38.1:POKEV+33.S 

1©0 ROR1 = 1T07 = POKEV + 39+I .. 0 : NEXT 

25© GOSUB5000 

2©0 GOSUB5200 

30© GOSUB800 

31© GOSUB700 

32© POKEV+31.0 

330 GOSUB4400 

34© GOSUB200© 

437 

438 REM MAIN LOOP 

499 : 

500 GOSUE3000 

5 1© POKES1+4^ 0 = JV=PEEKt56320> = RR=JVRND16 
:JV=1S—<JVRND15) : IRRRO16THENGOSUB2100 
52© ONJV+1GOSUB550.550.550.550.1500.1500 
-• 1500. 1600. 1 ©00 J. 1600 

530 IRJV>1THENROKEV+16. RX = ROKEV. XI : POKEV 
+ LV1 = ROKEM1 ^ SRCSB. SN) : GOSUB2008 
54© POKES 1 H~4 © : 00X0500 

55© RETURN 

ggg ; 

©S*0 REM INITIALISE SPRITES 

635 = 

70S RX=© 

710 X= 1 6 : V = 2 : X 1 = X*e©-*~24 : V 1 =V*8+53 : SD = 2 : SN 
= 1 

720 ROKEM 1 , SR < SD -• SN > - ROKEV-*- 16. RX : ROKEV ^ X 
1=ROKEV+1.V1 
725 ROR1=1TQ7 

730 BX < I > =0 - BV < I > = I*1 2-*- 1 0© : B1 C I > =BX Cl > : B 
2^1^ = ^>y I «> 

735 BN CI> = I : IRI I> 4 THEN BN < I > = I ~4 

"7"4© ROKEM 1 -*- I ^ BS < BN C I > > = ROKEV-*- 16. RX = ROKEV 
1 *=2 .. B 1 C I > = ROKEV+I*2+l ^ B2 < I > 

750 NEXT 

755 W1=104:W2=0 

7*6© T 1 =32 = T2= 1 4 : TR = 0 

730 RETURN 

735 : 

736 REM PRINT RLRV SCREEN 

737 : 

©00 RR I NT " ZT3H " = ROKE53280. © : ROKE5328 1 .. 6 
©05 GOSUB4300 = ROKE54276.33 

SI© ROR I =0X055*40—1 : ROKE56036+I .11= ROKESM 
+800+1 ^ 160 : ROKE54273. RND < © > #20+50 : NEXT 
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S2© 

PRINT’ 

* 5SDS 

S3© 

■ HI 

PRINT’ 

‘■HI 

S40 

RRINT’ 

1 Ml 

S50 

RRINT’ 

’■HI 

860 

PRINT’ 

’■HI 

865 

RRINT’ 

* S3 


104 




NUTS 



move: squirrel left 


SAVED: 0 

870 PR INT 

872 PRIN T 

8 73 PRINT ": 

875 PRINT" 

- m w 

STS PRINT"n 

890 RETURN 
1435 

1496 REM 
1 497 

1500 x=X—1:IEX<1AHDSD=1THENX=1 : RETURN 
15 10 POKES 1 -4-4 .. 33 : POKES 1 ■+■ 1 - RN33 C8>*1 0-4-40 = I 
FSD=2THEHX=X+1 

152© X1=M#8+24 : IEX1>255THENRX=< RXOR1 > : X 1 
—X 1—255 = GOTO1535 
1525 RX=< RXAND254 > 

1535 IESN —1THENSN=2=SD=1:RETURN 
155© SN=1:SD=1=RETURN 
1535 : 

1596 REM MOVE SQUIRREL. RIGHT 

1597 : 

1608 X=X-4- 1 - I FX>36THENX=36 = RETURN 

161© POKES 1 -#-4 ^ 33 - POKES 1 + 1, RND C8>*1 © + 4© : I 

FSD=1THENX=X—1 

162© X1=X*8+24 : IEX1>255THENRX=<RXOR1 > = X 1 
— X1—255•GOTO1635 
1625 RX — < RXHND254> 

1635 IFSN=1THENSN=2:SD=2:RETURN 
1650 SN=1 : SD=2 - RETURN 
1335 : 

1996 REM MOVE THE NUT 

1 397 : 

2©0© POKETP+SM .. T 1 : POKETP+CM ^ T2 : POKES 1-4-11 
.. © : CC=0: IFSD»2THENTP = X+3+ < V + 2 > #40 - G0T02© 


201© TP«X-l+CV+2>#40 

202© T1=PEEK< TP+SM> : T2=PEEK<TP + CM) = POKET 

P+CM,3:POKETP+SM,SI:RETURN 

2©35 

2036 REM DROP THE NUT 

2037 : 

2100 FORCC=0TO190STEP1© 

2105 IFPEEK< TP + 40 + SM> — 160ORPEEK< TP+40+SM 
> = 31THENCC=130 : G0T02180 

2 110 POKETP+SM , T1 : POKETP+CM ^ T2 : ROKES 1-4-11 
>33:POKE54280,255—CO : TP=TP+40 

2120 T1—PEEK< SM+TP> = T2 —PEEK< CM+TP> - POKET 
R-4-CM.. 3 - POKETP+SM, SI : GOSUE3000 

2 1 7’2 IFC REEK < V-+-3 1 > RND254 > O0THEMCC= 1 30 = N 
EXT:GOT02200 

2 1 80 NEXT = ROKES 1 + 11,32 = GOSUE4 1 ©0 GOTO230 
© 

2200 POKETP+SM .• T 1 = POKETP+CM .. T2 GOSUB4 1 0© 
: TP=0 : T 1 =32 - T2= 1 4 = POKEV+31 .. © 

223© N 1 1 - 1 : RR I NT " MS 

■ HI" HI 

224© IEH1 C1THENGOSUB510© - GO3UE520© = G0T03 
00 

225© GOSUE2000 = RETURN 
2235 : 

2296 REM NUT ERORS INTO HOLE 
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2297 ■ 

2300 POKES1+4,© : IETRCS00THENGOTO220© 

23 1© R = REEK < TR+ 1 +SM '? - I ER— 1 60ORR —S 1 THENTP 
— © = T 1 —32 : T2== 1 4 = GOTO2350 

232© ROKEV + 2 1 .■ 1 : POKETP + SM , 32 ' TP = TP+ 1 : POK 

ETR+SM, SI : POKETP + CM, 3 

2335 ROKEV +2 1 255 : G0T023 1 0 

235© FORQW=1TO20 : SN=SN+1 = ROKES1+4, © = IESN 
>2THEMSN=1:SD=SD+1 : IFSD>2THEHSD=1 
2360 ROKEV+2 I .. 1 - F’OKEM 1 SPCSD, SN> = ROKES1 + 
11,0: GOSUE4000 : POKEV+2 1 .. 255 : NEXT 
23S2 H2=H2+1 : HI—HI—1 

23S4 fr i mt " as»»»Bs»»Rai»»aaia mbhi" ; h i 

2386 RR I NT " 

Hmmmmmisisa" ■> H2 

2330 IEH1<1THENGOSUE510© = GOSUE520© = G0T03 
0© 
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2335 GOSUB2000=RETURN 
2935 : 

2996 REM MOVE THE BIRDS 

2997 : 

3000 N«H+1 - IFN>7THENH=1 : U9-FRE< O > 

3002 FOR 1 = 1 TOT” = EH < I > =EH <I) + 1 = I FEH C I > >4TH 
EHBN< I > = 1 

3006 POKEM 1 + 1.. £S < EH < I > > = NEXT 

3©1O EX <H >=EX<H > +H*2+8 : IFEX CH>>3SOTHEHEX 
< H > =© 

3020 E1 < H >=EX < H > = RX=C RXRHE < 255-< 2 TN > > > 
303© IFEX < N >>255THEHRX-< RXOR < 3 TM> > : El CH> 

=BX<H)-255 

3110 POKEV+ 1 6 . RX : PQKEV+H*2 El < H > : RETURN 

3334 

3995 REM HUT EROR3 INTO HOLE SOUND 

3996 - 

4000 POKES 1 +24 .< 15 : POKES 1 +4 .. 33 = POKES 1 -*-5 . 3 
=46 1 6-*-3 : POKES1+5,3 

4005 R9= I NT < RHD <©>*1 ©0-1-50 > = POKES 1 . R9 : POK 

ES1 + 1 . R9 

40 1 O POKES 1 -*-4 .. © : RETURN 

4095 : 

4096 REM NUT MISSES HOLE SOUND 

4097 : 

4 1 OO POKES 1 *+-4 . 1 £3 : POKES 1 -*-5 . 3* 1 6-4-3 : POKES 1 
+ 5 . 3 : POKES 1 . 50 : POKES 1 -*- 1 . 50 
4 110 POKES 1 +4 -• © : RETURN 


4 135 

4196 REM SQUIRREL MOVEMENT SOUND 

4197 : 

4200 POKES 1 1 . RHD < S > *e 1 0+40 : RETURN 

4235 : 

4296 REM NEW SCREEN SOUND 

4237- s 

43O0 FORJ =1T04 

4303 POKES 1 -*-24 , 15 = POKES 1 -4-4 , 17 = POKES 1 -*-5 - 1 

5 ■ POKES 1 -4-5 ji 1 5 

4305 FOR 1 = 1 TO200STEP20 : POKES L I : POKES 1 -»- 1 
.I:NEXT 

4310 POKESl+4,0 
4315 NEXT 
4320 RETURN 

4390 

4391 REM INITIALIZE SOUND 

4392 : 

440© FORI=542721054296:POKE1.0 =NEXT 

441O POKE54296.15- POKE54277. 96 = POKE54278 

.240:POKE54276.33 

4420 FOKE542S4.64 s POKE54235. 128 : POKE5428 
3.0: POKE542S0. 15 = POKE542S1.233 s POKE542S2 
. 233 


4430 POKE54291.64 : POKE54292. 128 = POKE5429 
O.© : POKE54287.55:POKE542SS.33:POKE54289. 
233 

444© RETURN 

4335 : 

4336 REM 

4337 = 

5000 PRINT* 

23 1.5 


PRINT TITLE SCREEN 

:POKE532SO.O : POKE53 


5002 

PRINT" 

sa*"" bw 

s 

jp 

01 

a 

01 

— 

01 

a 

sa 

"*bb sa 

-*—■ sa 

a sa E5" 







5003 

PRINT" 

01 99" 101 

— 

sap b 

sa 

B 

01 

a 

01 

b sa 

B Bfil B 

01 B b sa 

B 

01 B 


01 

B" 




5004 

PRINT" 

01 "B 

01 

BPia 

B 

sa 

— 

01 

B 

01 

b sa 

b sa a 

01 b sa 

■■ 

01 B 


sa 

B** 




5005 

PRINT" 

BS1 B 

01 

B 01 

w 

01 

B 

01 

B 

01 

b sa 

a sap m 

01 a sr 

— 

sa B 

01 

B" 




5006 

PRINT" 

Bsa b 

sa 

BP B 

01 

a 

01 

B 

01 

a 

01 

bp sa 

BP 01 S 


sa b* 







5007 

PRINT" 

Sk BP s 

B0I BBT 

sa 

BP B 


01 B 

01 

BB01 

ai si B'asa ^a 01 

— 

01 

B' 






5003 

PRINT" 

BS1 BP 

■^p-sa a 

Bi 

01 

—p 

01 

b sa 

b Bsa b a b 

Bsa B 01 


B 01 


a*' 






50O3 



PRINT 
PRINT" 
ssi m 01 

PRINT" 

01 bp m" 

PRINT" 

01 m Bsa 

PRINT** 
a B sa 
PRINT" 


01 


01 


01 

SSI 


01 


sols print" sa a a b a a sa 

s sa a sa b" 

5016 print" sa b a 9 a BB^a B 

SI B sa B Si B" 

5024 PRINT 

5O30 PR I NT " iWBilKpVBPlilipnBV FRANK M I KULHS 
TIK" 


Squirrel 

Away 

Program 
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503 1 PR I NT " 

1934 FflNFRRE HOUSE. INC.a" 

5Q35 IFFG-1THENFG=0:RETURN 

5075 GOSUB700 : GOSUB4300 Mi= . 

5076 POKEV+23. 1 = POKEV+29. 1 : POKEV+21 . 255 - 
POKES1+11.0 

5077 GOSUB4000 __ „.__ 

507*3 3H=SN+ 1 : I FSN>2THENSN= 1 :SD*SD+1 : IFSB 

5079 E POKEN 1 . SR < SD . SN > : FORL 1 = 1 TO 1 00 : NEXT 
5030 IRC REEK < 56320 > AND1 6 > = 160RREEK C197>< 
>64THEHGOTO5077 ^ 

5035 POKEV+1 . 0 = POKEV+29. 0 : POKEV+23. 0 
5090 RETURN 

5035 : 

5036 REM GAME OVER 

5037* : 

si00 rrint game 

51 1 0 R POKE532S 1 .14-: POKES1+1 1^0 
5 1 20 POKEV +23 . 0 : POKEV+23 0 
5130 GOTO5077 

5 1 35 : 

5136 REM RRINT INSTRUCTION SCREEN 

5 1 37* = 

520© FOR I =0TO7 : POKEV+ 1*2-»- 1 . © : NEXT 

520 1 RR I NT " 73” = ROKE532S 1.7 : ROKE5323© . 3 
5205 GOSUB4300 

52 1 0 FOR I =0T07 : POKEV+ I *2*+-1 . © : NEXT 

521 1 RRINT • RRINT = RRINT 

52 13 RRINT” WS- 


52 1*4 RR I NT ” 'J&USUO&IXi'' 
52 1 5 RR I NT " 5034 


5216 RR I NT ” 7331 


mm&i 


52 13 RRINT”r3SI 


5213 RRINT” nSBR 


Squirrel 

Away 

Program 


vou HAVE 10-4 NUTS WHI 


IN VOUR BURROW. VOU M 


5220 RRINT : RRINT”H 
CH VOU WANT TO ” 

5221 RRINT”* STORE 
I j*c 2 ■-i- riROR ” 

5222 RRINT"* THEM CAREFULLY TO KEEP THE 
BIRDS FROM" 

5223 RRINT” ERTINO THEM.” 

523© ROKEM1 . 16 : ROKEM1 + 1.21 : POKEv . 100 - FOK 
EV+2.200:ROKEV+1.61=ROKEV+3.30 

5230 FOR1=1TO1000 : NEXT _ 

5235 IF< REEK < 56320 > AND 1 e> > = 1 6THENGOTOj2o5 
5237 ROKEV. © : ROKEV+1 -■ 0 : POKEV+2 . 0 : RUKEV+4 


© 

523© RETURN 


5335 

5336 
5937 
5333 
600© 
60 1© 
602© 
603© 
60-40 
605© 
606© 
6070 
603© 
6©30 
6100 
611© 
6 12© 
6 130 
6 1 3S 


REM 


SPRITE DATA 


REM SQUIRREL. MOVING LEFT 

DATA © 

DATA ©.©.©.©.© 

DATA 4.5.88.20.21 
DATA 3-4 . 2© 35 . 3-4 35 
DATA 35 . 35 35 . 35 S5 
DATA 35 . 35 . 35.21.35 
DATA 35.21.34 . 35 . 5 
DATA 6-4 .5.2. 130. 163 
DATA 2 133.- 169. -42 . 170 

DATA 170.33.170.17W.1©6 
DATA 170. 170. 106. 170. 17*0 
DATA 50. 162.- 170. 10.. 123 
DATA 170.10.128.40.42 
DATA 0. 168.0 

REM SQUIRREL MOVING LEFT 


6 1 -4© 
fe> 1 50 
616© 
617*0 

fc> 1 S0 

6 1 30 
620© 
62 1© 
6220 
6230 
62-4© 
625© 
6260 
627*© 
627*3 
•=■230 
6230 
63©0 


DATA 1.. 65.- 6-4 
DATA 2 1.. 63 3© 35 .■ 2 1 

DATA 3-4 . 35.35 .- 3-4 .. 35 
DATA 35 .. 85 . 35.. 35.35 
DATA 21.85.85.21.84 
DATA 35 .. 2 .. 1 -4-4 .21.2 
DATA 13©.. 133.42. 138. 165 
DATA 33.. 170. 163.. 106. 17*© 
DATA 163.. 106. 170. 17*0.5© 
DATA 17*0. 17*0.2. 170. 17*0 
DATA 2. IT-©. 163.2. 133 
DATM 163.2.130.163.2 
DATA 123.16©.10.130.16© 
DAT R © 

REM SQUIRREL MOVING 

DATA 1.65 . 6-4 .5.31 
DRTR 3-4 .21.3*4 . 35 .21 
DATR 85.85.85.85.85 


R I GHT 


1 
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6310 DATA S5,85,85..S5,85 

t>320 DflTR 84 .< 85 ^ 31 s S*4 / 8*4- 

6330 DATA 6128, 82, 130, 1 S3 

334© DATA 80, 162, 168, 1 ©3 .. 178 

335© DATA 152, 106.. 170, 168, 17=-© 

333© DAT FI 17©, 168, 17©, 170, 14© 

337© DflTR 170, 170, 128, 42, 17*© 

333© DATA 128,42,132,128,42 

3390 DflTR 130, 128, 1 © .. 3 ^ 1S3 

34©0 DATA 10,13©,130,0 

34©3 REM SQUIRREL. MOVING RIGHT — S 

34 1© DflTR ©.. © 

34S© DATA ©-,©,©_. ©..5 

343© DATA 80,16,21,84,20 

344© DATA S 1 .. 35 , S© 35 .. 85 

345© DATA 35 .. 35 .. 35 .. 35.35 

6460 DATA 85,85,85,85,84 

6470 DATA 85,21,84,80,1 

343© DATA 80 106, 13©.. 128, 1 ©3 

349© DATA 162, 128, IT©.- 17©, 133 

35©0 DATA 170, IT*©.- 15S, 170, 170 

35 1© DATA 168, IT©.. 17©, 168, 17=-© 

35S© DATA 133,14©,170,2,13© 

353© DATA 40,2,130,42,0 

354© DATA 138,0 

3545 REM BIRD FLYING — 1 

355© DATA © 

353© DATA ©..© ^ ©..©., © 

6570 DATA ©..© ^ ©-.©.. © 

353© DATA 0,240,0,0,127 

6580 DATA S,0,33,SS7,1SS 

33©© DATA 31,241,234,143,253 

33 1 © DATA 32 ^ S3 1 .. S55 .. S55 355 

6620 DATA S55,SS4,33,255,255 

333© DATA 15.. 354 .•©..©., © 

634© DATA ©^©^©.- ©.- © 

335© DATA ©..©..© ^ © .. © 

333© DATA ©.- © ^ ©.-©.. © 

6370 DATA © ^ ©>©.■©.. © 


333© 

DATA 

©.©^© 



6685 

REM 

BIRD 

FLYIMG — 

3 

333© 

DATA 

©..©., © 



3 «•' 0© 

DATA 


© 


6710 

DATA 


© 


372© 

DATA 

©..©.•©.,©, 

0 


673© 

DATA 

© .. 7=- .. 128, 

355.. 341 


3740 

DATA 

224,153, 

253, 33 j. 331 

375© 

DATA 

355.- 248, 

355,255,3 

34 

373© 

DATA 

33,355,3 

43, 15.- 354 


3770 

DATA 

3 , © , © , © , 

© 


6780 

DATA 

© , ©^ 0, © Ji 

© 


6790 

DATA 

© © .* © .• © A 

© 


330© 

DATA 

© ^ © -,©./■ © ^ 

© 


331© 

DATA 

© J> © .» © .* © .• 

© 


333© 

DATA 

© 



3335 

REM 

BIRD 

FLYING — 

3 

333© 

DATA 

©.0.0 ^ 

© 


334© 

DATA 

© j. ©^ © > © -■ 

© 


335© 

DATA 

0^©.. 0^©^ 

0 


333© 

DATA 

0.. 0-.©-.©^ 

3 


6870 

DATA 

138,0^5^ 

228,133 


333© 

DATA 

14©,335 

i .. 355.- 34© 


6890 

DATA 

1 27 . 355 .. 

334.- 31,35 

5 

690© 

DATA 

34© ^ 33 ^ 354 ^3.-1 33 


33 1© 

DATA 

© .. 4 ^ 0 ^ 0 .■ 

0 


633© 

DATA 

0 * © .« © .« 0 j 

0 


633© 

DATA 

0,0,0,0, 

0 


334© 

DATA 

©.-©.. ©^©^ 

© 


335© 

DATA 

©^©^0^0 



3000© 




3001© REM 

RESTORE MEMORY 


3©0S© - 

3©03© POKE648 ^ 4 = RR I NT " 73"’ : STOR 


Squirrel 

Away 

Program 





Ghost Hunt 


Igor Tulchinsky 


0 

1 

2 


4 

5 

6 


REM 

REM 

REM 

REM 

REM 

REM 


* GHOST HUNT *=*5 

BV IGOR TULCHINSKV *N 

* <C> 1984 FANFARE HOUSE.. INC. * 

sfc BOX 3062 HOUSTON, TX 77253 m 


X 1 M*X2X + X35i + V 1 X-t J, i’2K+V3?i : GOTO 200 


REM 


MOVE FIGURE 


lO BS?i*PEEKC56320> 

12 IFC NOTBSKfiND 16> = 1 6THENN 1 K»N?S = NK*NK+ 1 : 
NX-NK+3# < N?i=4 ::■ 

13 I FBS5iO255THENP0KE54283 , 17 : POKE54280, 
RND< 8 > *1O 

14 POKECL< M1X > . 3 

1 5 POKE204O 1 32 : POKECL < MX > 7 

1 3 D3X—— < NOTBSXRMIJ4 > /4+ < NOTBSKAND8 > /3 : E3 

X —— < HOTBSXAND 1 > ■+• X NOTBSXHND2 > /2 

20 XX < MX > =XX < MX > +D3XS4SMM* 1.5: VX < MX > =VX < MX 
>+E3X#MM*l.5 

2 1 I FXX C MX > >=30RNDXX < MX > <*328AHDVK < MX > > = 
1 0OAMDVX < MX > 0225THEN27 

22 I FXX <C MX > <30THEMXX < MX > =30 

23 IFXX <MX >>320THEMX< MX>=320 
2-4 I FVX < MX > < 1 00THENVX < MX > = 1 OO 
25 IFVX <NX> >225THEMVX< MX > =225 

27 POKEPX < MX > .. XX < MX > AND255 : POKEV+ 16, < REE 
K < V+16)AND< 255—R < MX > > >OR< — dXX CMX > >255 > 

< MX > > 

SO POKEPV < MX > VX < MX > 

35 POKE54283 .• © 

48 POKE204O^ 133 - RETURN 

47 

48 REM MOVE GHOST 

50 - 

51 POKES + 4^ 65 : POKES+1 ^ RND< S > *50+1OO 

52 IFCT =40THEMX3X=RMD< © >*300+20 : V8X = RND< 
8)*180+40:CT=©:GOTO60 

53 CT=CT+1 

GO IFX3X>X8XTHEMDXX=—1 
65 IFX3X<X8XTHENDXX=1 
70 IFV3X>VSXTHEMDVX=—1 
72 IFV3XCV8XTHEMDVX*1 

75 X3X-X3X+MX <. 1 > *DXX : V3X = V3X+NX< 1 )*DVK = X 
3X = X3X*SGN< X3X> 

76 IFV3X<1O0THEMV3X=1OO 

30 POKE204O, 132 : POKE54280, 50 - POKE54287, 1 
50 

35 V3X~V3X*SGM <. V3X > 

30 POKEV+ 16, < T. REEK < V-*- 16) AND254> OR— C X3X>2 
55) > = POKEVX3XAMD255 

35 POKE2840, 133 = POKE54280, 140 = POKE54287, 

220 

100 POKEV+l,V3XAMD255 
105 POKES+4,O 
110 RETURN 
137 

133 REM INITIALIZATION 

133 : 

200 GOSUB12000 : GOSUB13000 
205 GOSUB1 1OOO = GOSUB13000 

2©6 TT=TT+ 1 : TZ= I MT «T. VL — T I /60 > : RR I MT " 

" TAB CIS) TZ " II " 

2©7 

203 REM MAIM CONTROL LOOP 

2©3 : 


Ghost 

Hunt 

Program 


21© Q=PEEK< V + 30> - GOSUB1O = GOSUBS0 = Q1=FEEK 
CV+30) : IFQ1=0THENQ = PEEK < V+30) 
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2 11 TT=TT+1 : TZ=INT< VL — TI/60> : XFTT>6THENT 
T=© : PR I NT M &DeeVeamDBa" TAB < 1 © > TZ*- < TZ>0 > ” II ” 

212 IFTZ<=0RNDTT=0THEN15000 

2 13 I FTZ< 1 0THENPOKE532S 1 RHD <8>*16 = POKES 
+ 1. RND < S > 5+e 1 00-+-1 00 : POKES+4 .. 33 
23© IFQ1O29THEN210 

23 1 POKEVH'2 1 ^ 3© : Z=FEEK C V+3@ > : 2 = 3 INC8 > : 2 = 
PEEK<V+30: : POKEV+2 1,31 : IFZO0THEN21© 

23© GOSUB1312© 

239 ROKE5-4 223 .. © : POKE5429©© 

2-4© POKE54283 33 = POKE542S0 . © : FOR I =255TO0 

©TER—1 : POKE54280, I = NEXT = POKE542S3, © 

25© HP=1000-VL*2-VALCTI$?=SC=SC+NP:GOSUB 
1 ©©©© : T I" @©00©© ’■ 

27© POKEV + 21 .* © 

2©© XX < 1 > =4© : XX< 2 >=32© = XX <3 > = 13© : VX< 1 > = 1 
2© : VX < 2 > = 12© = VX <3 > = 175 

23© NX=1 : GOSUB1© = MX = 2 = GOSUB1© = NX=3 = GOSUB 
1© : NX= 1 : Q = PEEK<V + 30> = POKEV + 2 1 .-31 
295 TT=TT+ 1 : TZ= I NT < VL — T X /60 ^ = RR I NT ” &DSDSD&XX 
■■ TfiB< 1 © I:- TZ ” II ” 

3©© GOSUB1312© = POKE53281 ✓ © : G0T021© 

333© END 

9997 : 

9998 REM GHOST 1 

9999 : 


Ghost 

Hunt 

Program 


1 ©000 DATA 0 ^ 5© .«©..©.. 1 24-.- © ^ © .- 25-4 .■ © 

1©001 DATA 1, 147,0/ 1, 183,0.©.-254/0 

1 ©0©2 Hi FIT Ft 1 ^ 255 ., © .. 3 255 ^ 1 84 .. 3 1 25 ^ 252 

1 0©©3 DATA ©3 , 131,23© ^ 1 27 255,224 207 25 

5 .* 2*4© 

1 ©0©4 DATA 15, 255 2-4© 3© ^ 233 ^ 1 2© ^ 23 ^ 233 .. 

1 5© 

1 ©0©5 DATA ©3 233 > 254 .. 1 23 255 223 255 .■ 23 

3 -■ 20© 

1000© DATA 249,199,132,112,131,0,32,0,0 

1©0©T 

1000© REM GHOST 2 

10003 

1 0© 1 © DATA© .. 5© * © ^ © .• 1 24 .■ © .- © .. 254 ^ 0 

1 0© 1 1 DATA 1^1 47 -• © .■ 1,219,0, 1 2© ^ 254 ^ © 

1 0© 1 2 DATA 1 33 -• 255 .. © .. 1 27 .. 255 - 1 23 -• ©3 1 25 .. 1 

35 

1 ©0 1 3 DATA 15, 13 1,254 , 15, 255 24© ,31,255 -• 2 

24 

10014 D FIT A3 1 -■ 255, 224, ©2 .. 233, 112, 121 .. 239, 
176 

1 ©0 1 5 DAT A255 ^ 233 ,■ 24© j. 25 1 ^ 255 22© ,31,255 

^ 254 

1 ©0 1 © DATA7 119, 1 27 ^ 2 ^ 34 .■ 5© .-©..©.. 32 
10017 : 

1001© REM FIGURE 

10013 

1 ©02© DATA0 .. 1 24 .. © 1 255 ., © ., 3 .. IT*.. 1 2© 

1 ©02 1 DRTA7 .. 255 .■ 1 32 ^ © ., 1 ©© .. 1 32 ^ 3 255 .. 1 2© 

1 ©022 DATA 1..233 .©.,©.. 254 .. ©■ ©.- ©S .. © 

1 ©023 DATA© .. 5© .- © .- © .. 1 © ^ ©.- © .. 5© .. © 

1 ©024 DATA 15, 255 224 ,31,255 .• 24© ^ 43 -■ 254 ^ 2 

4 

1 ©025 DAT A3© ^ 252 , 12, 3© ^ 252 , 12, 4© .. 204 .. 24 

1 ©02© DATA0 j. 204 ..©.•© ^ 2©4 1 .. 1 34 ^ © 

10997 

1033© REM PRINT GAME SCREEN 

10333 

1100© ROKE532© 1 .• © : POKE5328© ,11 
110 1© ROKE5423© .. © : RR I NT " 73" 

1 102© 3=54272 : FORL=3TOS+24 = POKES, © = NEXT 

1 1021 ROKE54277, © = ROKE24278,200 - ROKE5427 

1 7^POKE542 8^ 0 ;POKE5429 0 ^ © = ROKE54296, S 

1 1 ©3© fii=" " : H^ = R^-+-R^: : R^ = R^H-R^ : R^ = R^=-*-R 

4? : fl^=fl$+A$ 

1 1 ©40 FOR 1 = 1 TO 1 3 : RR I NT ” =*3*" ^ R4? > = POKES+ 1 ^ R 

ND < 3 > *255 : NEXT = RR I NTLEFT$ < FI 3? .. 1 © > .; 

1105© FORI=0TO39:ROKE2023—I^1©0:ROKE5629 
5—I .. 4 = NEXT 

1 1 ©©7 s1 PR I NT ” SSI" : PR I HTTAE < 1 7 > " a=*SCORE ” 

110©© FOR1=1T03© 

1 1©S3 Q = RND < S > *240 : POKE1024+Q> 4© = POKE552 
3©-+-Q .• 1 = POKES-*-1 RND<8>*255 = NEXT : ROKES + 24, 

0 

1 1 070 RR I NT ” 5=3” = RR X NTT AB < 1 7 > ” aa^CORE ” 

1 1 075 RR I NT ** 5=3” : RR X NT = RR I NT = RR I NTTRB < 1 5 > " 

rrasrriME lefta" 

1103© RETURN 
11337 : 

1133© REM PRINT TITLE SCREEN 

1 1333 

1200© ROKE53280, 1 1 : POKES3281 © = RR I NT ” 73” ; 

12001 ROKE53269, © = FORI=54272T054236 = POKE 
1,0 : NEXT 

12002 POKE5429©^ 5 = ROKE542S3 ^ © : ROKE54230^ 
© : ROKE54277, S© : ROKE54278, 223 = ROKE54276, 3 
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12010 

12020 

12025 
1 2030 
QK < I > 
1 20-40 
NEXT 
12050 
NEXT 
12060 
EXT 
1 2070 
EXT 
1 2030 
12090 
12095 
12 1 00 


FOR1=1TQ24:PRINT■ 
PRINT' 


= NEXT 


■’ J : POKE2023 j- 130 = POKE56295, 0 
QX < 1 > =4 : QX < 2 > =3 : QX < 3 > =9 

32 =39 = 33=0 = 3-4 = 24 : FOR 1 = 1 T02 = Q = 


: 1 =0 
X=S1 
V = S4 
X = S2 
V—S3 


FORV=34TOS33TEP—2:GO3UB12500: 
F0F:X = 32TOS 1 STEP — 2 : GOSIJB12500 = 
FORV=S3TOS4STEP2=GO3UB12500:M 
FQRX=S1TOS23TEP2:GOSUB12500:M 


SI—Sl + 1 - S2=S2—1 : 33=33-+-1 - S4=S4—1 
NEXT I 

POKE54236,© 

pr i nt " - b^= ■■ rmm 


12 110 PRINT" ■-- " B=i> " H "B:£"l _ " B3S " -mmmT 

si ■■ - ^ i ]** 

1212 0 PR INT" " JB &" I H B^ " TSBrn & " B^" I 

1 " " ri'T 3” 1 

1 2 130 PRINT" "B*:" mi "B3?" ■ ■ " B^ " W '• 

" mn" .- 


12140 PRINT' 


" B^ " 


12150 PRINT 

: PR I NT " »»BHsEe!3iMBi»BiB>Bi|iI 

12130 PRINT"* ■"■B^”! 

■ " ’■ - 

12170 


121 30 
"» •• *»n 
12 1 90 

1 22 1 0 
12250 
USE .. 



PRINT" "B^ 1 

PRINT" "B^" 

n" ; 

PRINT" "B^" wmmmm " B^= " ■ " B^" 

PRINT = PRINT = PRINT = PRINT 
PR I NT " MRSklipPBiPK C > 1934 FANFARE 

INC. 


1 2255 PR I NT " : I I I I 3" : PR I NT " N»»f»lsa*PREG3 
E FIRE BUTTON TO BEGIN" 

1 2253 PR I NT " ITT I I I I I 3" = PR I NTT AB U 1 > " BV I 
R TIJLCHIN3KV" 

12230 RESTORE=V=5324S 

1 227-0 FOR 1 = 1 22SSTO 1 235© = REflDJ : POKE I ^ J : 
XT 


HO 

TH 

GO 

NE 


1 2230 FOR 1 = 1 2352TO 1 24 1 4 - REflDJ : POKE I J - NE 
XT 

12290 POKE2040, 192 = POKE2041 „ 193 = POKE2042 

-■ 134 : POKE2043, 195 : POKE2044, 193 = POKE2045, 

1 97 

12300 POKEV+2 1 ^ 3 : POKEV+39. 1 - POKEV + 40 .• 0 : P 

OKEV, 50 = POKEV+ 16, 0 : POKEV+1 17© : POKEV+23.. 

3 

1 23 1 © POKE V+23 ^ 3 = POKEV+23 © : X3X = 1 3© : V3X 
= 10© 

12320 POKEV+23 © : X3X=5© = V3X= 1 7© 

1233© 3=54272 = FORL=STOS+24 - POKES.- © = NEXT 

1 2335 POKE 1 93 © 

12333 SI=1© 

1234© POKES+5> 3 : POKES+3, 20© = POKES+24, 15 = 

POKES+4, 33 : DX=3 : FX=1 : POKE54273, 10 = VZ=5© 
12350 X3X=X3X+DX : IFX3X=254ORX3X=50THENDX 

= —DX 

1 235 1 POKE5323 1 .. RND CS> *255 

12352 V3X=V3X+FX:IFV3X=13SORV3X=1S3THENF 

X = —FX 


12355 POKE54273, VZ = VZ='v'Z+S I : I FVZ>25SORVZ 

C13THENSI=—SI:VZ=VZ+SI 

1233© POKEV^ X3X - POKEV+1 .. V3X : POKE204©. 192 
— < PEEK < 204© > = 192 > 

1 2335 POKES323 1 RND < 3 > *255 
1237© POKES3231 .. RND< 3 > *255 

12375 Q=PEEK<56320>=IFQ=127THEN1239© 

12330 POKES+4/33 : POKES+24/15 : POKEV+21..©: 
POKES+1 - 5© : Q = SIN<812. 1 > : RETURN 
1239© REM 

12395 POKE54273 .- VZ : VZ=VZ+S I = I FVZ>2550RVZ 

<0THENSI=—SI:VZ=VZ+SI 
1240© GOTO1235© 

12499 GOTO12499 

1 2500 POKE55293+40*V+X .- QX t RND C 3 > *3-+- 1 > : PO 

KE54273^ RND< 3 > *1©© = RETURN 
12997 : 

12993 REM SPRITE INITIALIZATION 

12999 : 


13000 

13010 

RESTORE:V=5324S 
FOR1=122SSTO1235© 

REflDJ 

POKE I 

J* - JT 

NE 

XT 

1 302© 

FOR1=12352TO12414 

RERDJ 

POKE I 

.. - J 

NE 

XT 

1 303© 

FOR1=12416TO12473 

REflDJ 

POKE I 

.. J 

NE 


Ghost 

Hunt 

Program 
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1 3070 F'UKE2©40 .• 132 : POKE2041 .« 133 = PGKE2042 

.. 134 : POKE2043 .• 134 = POKE2044, 134 

1303O POKEV+2 1,31 : POKEV+33, 1 : POKEV .. 130 : R 
OKEV+16, S = POKEV+1 .. 100 : POKEV+23, 33 
13030 POKE V +23, 33 : POKEV+28, 0 : X3/i=160 : V3 
X = 1 0© 

13 1 00 POKEV + 4 ^ 4© : X5i < 1 > —4© - VK U> =RND <S>*1 

00"*“ 1 00 : POKEV+5 VK< 1 > : POKEV+4 1 .. X 

13105 POKEV + 8 -■ 13© ■ POKEV + 3, 175 - POKEV+43, X 

1311© POKEV+3 .. 34 : XX d 3 > =33© - VX d 2 > =RHD d S > :-*= 

100+10© : POKEV + 7 VXd2> : POKEV+42, 7 11 

13 111 RX d 1 > = V+4 : PX C 2 > =V-*-3 : RV d 1 > = V + 5 : RV d 2 

> =V+7 : CL d 1 > «V+4 1 = CL d 2 > =V+42 = NX= 1 

13 112 PX d 3 > =V+8 = R V d 3 > = V-*-3 = CL d 3 > =V+43 : R d 1 

> =4 : F* d 2 > =3 : R<3) = 16 : X7-£ d 3 > = 1 3© ; VX d 3 > = 1 75 

13113 MM=5 : MX d 1 > =RHDd © > #MM+1 : MX d 2 > =RHDd S 

> #MM+1 = MX d 1 > =RHDd3 >#MM+1 

13114 HXd2)=RNDdS>*MM+l 

13115 MR=3:SC=0:XI4? ="000000”:VL=101:X3X = 
RNDd S >*300+20 : V8X-RMDd8)*l00+1©0 

13113 ROKECL d 1 > .. S' : ROKECL d2>,5 = ROKECL d 3 > ^ 
3 

13117 : 

13113 REM SOUND IHITIRLI2RTION 

13113 

1312© 3=542X2:FORL=STOS+24:FOKES,0:NEXT 

13130 POKES+5,3:ROKES+6,200:ROKES+24,15: 
F'OKES+4 j. IX : Q = REEJK d V-+-3 1 > : Q=PEEK d V+30 > 

13 1 5© POKE54234 .. 223 = ROKE54235 .. 223 : ROKE54 

283,33:POKE54230,IX:ROKE542X9,© 

13 1 X© RR I NT " =*=3=3" = RR I NTTRB d 1 X > '* SCORE " 

13 1 75 ROKE54275 0 - ROKE542X4 ^ © 

1313© RETURN 
13333 END 
1433X : 

14333 REM GRME OVER 

14333 : 

15©00 GOSUB1312© 

15005 FORI=255X01©STEP —5 = POKES+1 .. I : NEXT : 
ROKES + 24> © : POKEV+21 .. © : POKE53281 .. 0 = ROKE53 
23© ,> 1 

1 5© 1 © RR I MX " &BSDSDSI NM M : RR I NTTflB d 1 5 > " a=l3RNE 
OVER " : POKE 1 33 j. © = RR I MX " lesletfeg" 

1502© RRINX" KPPRRESS THE FIRE BUTTON TO 
RESTART " - T 1 Sl>= 11 00000© " 

15025 FOR1=1TO50©:NEXT 

1503© I=REEKd53320>:T=T—1:IFI=12XRNDTI$< 
>"©00045"THEN1503© 

15035 IFVRLdTI$>>44THENRUN 
15©4© CLR:GOTO205 
1533X : 

1533© REM ADJUST SCORE 

15333 : 

1300© SC=INT d SC > 

13©04 RRINT-SaW" 

130©5 MM-MM—d MM C15 > = MX d 1 >=RNDd © >*MM+1 : MX 
d 2 > =RNDd 3 > #MM+1 

1 3© 1 © SC$=M I T} & d STR$ d SC > 2 LEN d STR$ d SC > > — 

1 > 

1 302© RR I NTTRB d 2 1 —LEN d SCX > > SC$ *- POKE 

54233.. 3 : VL=VL/1 - 1 : RETURN 

1X33X 

1X33© REM PRINT INSTRUCTION SCREEN 

1X333 

1©00© ROKE54233,15 : FOR1=1TO1©© : NEXT=POKE 

54233 . © 

13©05 POKE53231,1 :PRINT ,, ^ H 

1©01© RRINTTRB dl4>"iSGHOST HUNTS" : RRINT = 
RR I NT 

1302© RRINTTRBd5>"THE CRRZV, NEIGHBORHOO 
B GHOST" 

18030 RR I NTTRB d 5>"IS ON THE LOOSE.. AGAIN 

1©030 RRINT - RRINT 

13100 PRINT" !»a"TRBd5> "CAPTURE THE GHOST 
BV TOUCHING" 

13105 RRINTTRB d 5>" IT WITH RLL THREE OF T 

HE FIGURES" 

1©107 RRINTTRBdS)"AT THE SAME TIME AND W 

ITH NO" 

13103 RRINTTRB d5 > "FICURE TOUCHING RNOTHE 
R FIGURE-" 

13 11© RR I NTTRB d 5 > " HURRY UR .. T I ME I S SHORT 

T. " 

13 1 3© F*R I NT : FR I NT : PR I NT " S" ^ 

1314© RRINTTRB d 5 > "YOU CRN SWITCH BETWEEN 

FIGURES" 

13 15© RRINTTRB d5 > "BV PRESSING THE FIRE B 

UTTON - " 

131 3© RR I NT = F*R I NT = RR I NT = F'R I NT " M F’RES 

S THE FIRE BUTTON TO BEGIN" 

13 13© IFREEKd5332©> = 127THEN1813© 

13200 ROKE54233,15=FOR1=1TO1©© : NEXT:POKE 

54236, © 

1321© RETURN 


Ghost 

Hunt 

Program 






Firecracker Boy 


Charles Mott, Jr. 


0 «—‘m c*-^2 **-» •-■-^ -■-<- *^U: ^ r^? 2^* ^ 

l%CLI I »fs i^: :^: ag* 3JC j^i age :^s :^s :^: ap: 3^3 s^: 2^: ap; «P** 

1 REM * FIRECRACKER BOV CPART 1> 3*6 

2 REM * BV CHARLES MOTT * JR. *e 

3 REM 9*8 CO 1904 FRNFARE HOUSE, IMG- 9*6 
4 REM 9*6 BOX 3062 HOUSTON, TX 77253 9*6 

5 REM 9*6 9*6 9*6 9*6 3*6 3*6 9* 3*6 3*9* 9*8 3*3*9* 9*6 9*6 9*9*3*3* *6*69*69*6*6*6 3*6 *€9*! *6 9*6 *6 
69 

7*0 REM INITIALIZE VARIABLES 

7* 1 

30 RR I NT " Z2” J, :LL>1228S 

90 FORT®1TO150 = GOSUB670 : NEXT : FOKE53280, 2 


an an 

120 2«C3>» l( ni 

a p ana 

130 Z$<4>a (, q 

a n a 

140 z»c5>«"na 


1 60 ZSP C.7* > « 

an an 

17*0 Z*C8>« 


^ 0 
" m 

a 

n a 

n a 

n 

a 


n a 

"HI 

n 

an 

a n a> 

a n 

an a 

59 

a 

n 

i a 
aa m 

n a n 

a n 

a n 
a si 

a n a> 
ana 

95 

a 

55 

i a n an 
■*m an 

a n 
a 

a n aa 
os a 

n 

a 

95 

a 

aa m 

n, a 
a n 

a n 

an a 

n 

a 

n 

i a n a n 
"ni a n 

a n 
a n 

a n aa 
a n a 

n 

a 

n 

i a 
a, m 

nan 
a n 

a n 

a n 

a » ,a 
ana 

n 

a 

n 

! a 

— m 

n sm ss 
a 

a n 
n a n 

a n 
ana 

n 

a 

a 

i a 

n a 

as a 95 

a n aa 





100 S“54272:FORT=STOS+24=GOSUB670:POKET, 

0:NEXT : POKES,240:POKES+6,240:POKES+24,15 


190 c*cn = " 
n \ i ^ 

200 C»<2>*= M 

n ✓wsas 

210 csp <3)«" 
HTh ^mi ^ 

220 C»C4>«" 

nrra ^ ^ 

230 caj<s>® H 
H 

240 V»<1>= M 

naaaia n M 

250 V* < 2 > = " 

wmmt a ma n (> 

260 V$C3>=" 

wia n aa 

27*0 V*<4> = " 

mania n i( 

200 V*<5>=" 

a n >a 

290 X*C1)®" 


nmmmm ma 

l*»»Ki1Si 

mnnnvna 

manama 


300 X4P<2>«" 

m rq m ■ am m 

310 X»<3>«" 

rra n mm m n am 

320 X#<4>=" 

m n ora rnn 

330 Xa<5>® aa 

m m m\ n a» rra 

340 M«CS>=" 

m rm if a [ m era rra 

350 X*C7>® n 

rn n era m n am 

360 X^CS)®" 


am nr 

am m 
am rra n 
am it 

ara rra 
ora rra m 
am rn n 
nrma n 


nia nmia 

ennia »»*ia n 
nia »»»ia n»i 
nmia mania s 
nia n»»i 

ma am m era 

m am m n am 

am .*n as am 
n am rra n am 

n am m n am 

am rra n am 
am mi n am 
^ma n ^ma n ’■s 


Firecracker 

Boy 

Program 















118 Arcade Games for the Commodore 64 


Firecracker 

Boy 

Program 


366 f ? Er1 PRINT TITLE SCREEN 

3^*0 FRINT'Ta" ; : GOSUB480 = PR I NT "358" i 
ii?NiS? T “ 1TOS : RRIHT5x? * <T > : COSUB670 s OOSUB5 
33© FORL“ 1 TO60 : PR I NT " BiMraaisai^^^q^■ ■ ; 

400 FORT* 5 1 TOS : GOSUB670 = PRINTLEFT$CZ$<T> 
L> : NEXTT s CO3UBS00 : NEXTL 
•410 F^ORL™ 1 TO50 = PR 1 NT " 

420 FORT * 5 1 TOS : GOSUB 670 : PR I NTLEFT* C C 3 ? CT>, 

L> : NEXTT s OOSUBS 00 s NEXTL 

•430 FORL= 1 TOS 0 = PR I NT " E SKt XBSIH SJfSK SI &XSMS S ^ 

i^?®.^S5I“i££^~2 OSUBS7 " 0 : printleft»cv$ct>, 

L 2 : h EXTT:GOSUB 500 =NEXTL 
450 PR I NT " WWOTnWWHlWroa»^^ 

nmm ihdbv chrrl.es mott , jr. ■■ 

460 PR I NT " MWW)TOnW]WB^^ 

<£> 1984 FRNFRRE HOUSE, INC-*'; 

P ort “STOS+24 : POKET, 0 : NEXT s OOTOS3© 

4 £j| REM INITIALIZE FALLING SOUND 

400 POKES+ 4,17 
490 0 * 235 :RETURN 

404 

43 5 REM FALLING SOUND 

406 

500 I FO< 0 ORO> 255 THENO= C 1 
510 POKES+ 1 , 0 : 0 = 0 — 1.5 
520 RETURN 
524 

526 ^ EM PRINT INSTRUCTION SCREEN 

530 POKES+ 5 , 10 :POKES+ 1 , 10 : POKES+ 24 , 15 : PO 

KES+ 4 , 123 = POKES+ 4 , 120 

540 F 0 RT* 1 T 0188 : GOSUB 670 : NEXT 

550 PRI NT'* r 3 MDnHDSn(D< 0 (Dni at ; 

560 FORT- 0 TO 35 O : PRINT" ; : NEXT 

S 70 PR I NT" jsaHPWBPOTgwWlMaiUSE THE JOYSTICK TO 

MOVETHE FIREFIGHTERS- 

0 8 DR 0 p I ||" ,,pll,i>l!S FROM WINDOW TO WINDOW, T 

F? 0 , : >E 55 N I." ,, • la, WRTER BALLOONS ON THE LITT 
LE BOY ^SB" 

DOES P NOT«"" a FIRECRHCKERS, SO THE MRVOR 

s i® Mil! II,M GET UPSET DURING THE FOURTH 

OF JULYH" 

print"prrrde. b- 

630 FORT» 1 TO 400 :GOSUB 670 :NEXT 

640 FORT 5 * 1 TO 650 : GOSUB 670 : POKE 1343 +JU, 1 ©5 
: JTU—JU-i -1 : GOSUB 650 = NEXT 
650 POKES+ 4 , 1 20 POKES +4 , 120 
660 RETURN 
664 : 

SS 3 REM POKE 1 EVTE OF SPRITE DRTA 
666 • 

6170 READR = IFHO 256 THENP 0 KELL, R : LL=LL+ 1 s R 
ETURN 

PR I NT " M OgWMP«BOTMg«BgHg«tt^^ 

- mmmmmmmmmmmmmmmwFMij NOW- 


600 PRINT 


606 *? Eri LORD PART 2 

j£®2 POKES+5, 31 : POKES+4, 120 : POKES+4, 120 
710 CLR : POKE52 , 40 : POKE56 , 75 

720 POKE631,10 = POKE632, 13 : POKE633,02 :POK 
E634,05 : PO KE6 35, 7*0 : POKE636, 13 : POKE 1 OS , 6 

FI RECRHCKER 


SPRITE DRTR 

ONE SPRITE EVERV FOUR LINES 


___ - NEW = END 

7-22 

725 REM 

726 REM 

727 : 

3 " 85 ' 192,3, 150, 102, 7,0 

S< 2ee< 85 / 80J 1 

S 5®A-=.5 R I5.. 125-64,0,85,0,0,20,0,0, 170, 1 28 
,3,234,240,12,251 

2 002 DRIT 2 234 -* 12, 251,204, 12, 255, 204,5, 25 
5, 212., 1,243,200,0,243, 102 

|5 003 DR X5 0 * 243 •*’ 1 32 - 3 •* 243 , 1 02 , 0 , 243 , 1 02 , 

0,162,120,3,243,240,0 

i?l08?gT? 2 i;Ii! s i®' 3 ' S5 ' 1S> . 2 ' 3 ' 15 ®' is?2 ^ s 
5?5?=§S73.*§??*?S3i' 125 ' 0 ' 0 ' a0 ' 0 ' 0 ' 12 

S« 0 ? Q 5 R T R ? 04 ^ 48 ^ 251,105,40,255, 105,20, 2 
55-* 107,4,243, 1 06 , 0,243 , 102 

S 0 ?r^ D ?I R 0 ' 243 ■* 1 32 ' 3 ■* 243 , 1 02 , 0,243 , 1 02 , 
0,162,120,3,243,240,0 






Firecracker Boy Program 119 


sees - drtr e * 235 * e * 3 * ss * 1 92 * 3 * i 50 * 132 * 7 * © 
5,208.5.125,80,1 

sees DRTR 235.64/0.123.0.0.20.0.16.170.1 
32 * 67* , 234 * 24 1 * 76 * 25 1 

se1e DRTR 205* 240* 251*195* ©* 255 * 192* © * 25 
5 * 192* © * 243 * 192* 0 * 243 * 192 

Sell DRTR 6.243. 192 . 0 .243. 192.0 .243. 192. 
e * 162 * 126* 3 * 243 * 240 * 0 

5012 DRTR B.255.0.3.85.192.3.150.192.7.8 
5.208.5.125.80.17 

5013 DRTR 235.68.16.125.1.48.20.3.48.170 
.131.63*234 * 255 * 0 * 251 

5014 DRTR 192.0.251.192.0.255.192.0.255. 

192* 0 * 243 * 192* 0 * 243 * 192 

5015 DRTR 0 * 243 * 192* 0 * 243 * 192* 0 * 243 * 132 * 
0*162 * 126 * 3 * 243 * 240 * 0 

5016 DRTR 0*255*0*3*35*132*3*150*132*7*3 
5 * 203 * 5 * 125 * 30 * 17 

5017 DRTR 235* 63* 16* 125* 1 * 43*20* 3* 43* 170 
*131*63*234*255*0*251 

5013 DRTR 132 * 0 * 251*132 * 0 * 255 * 132 * 0 * 255 * 

132 * 0 * 243 * 132 * 0 * 243 * 132 

5013 DRTR 3>132*240*3*132.240*3.192.240* 
50*123*163*IS*132*252*0 

5020 DRTR 0*255*0*3*35*132*3*150*132*7*3 

S* 203* 5* 125* 30* 17 ___ 

5021 DRTR 235* 63* 16* 125* 1 * 43* 20* 3* 43* 170 

* 131 * 63* 234 * 255 * 0 * 251 _ 

5022 DRTR 132 * 0 * 251*132 * 0 * 255 * 132 * 0 * 255 * 

192* 135 * 132 * 243 * 207 * 0 * 243 _ 

5023 DRTR 233 * 0 * 53 * 236 * 0 * 53 * 236 * 0 * 53 * 240 
.0. 15* 0.0*0*0 

5024 DRTR 240 . 0 * 0 * 132 * 21 * 0 * 207 * 43 * 0 * 233 * 

48*0*233*43*0*255 _ 

5025 DRTR 240 * 16* 15 * 240 * 1 12 * 3 * 241 * 32 * 3 * 2 
41*103 * 3 * 223 * 37 * 3 * 231 

5026 DRTR 37 * 2 * 167 * 37 * 3 * 223 * 103 * 3 * 225 * 37 

* 15* 241 * 32* 255* 240* 112 

5027 DRTR 233 * 43 * 16 * 233 * 43 *0 *132 * 43 * 0 * 24 
0*21*0*0*0*0*0 

5023 DRTR 0 * 0 * 0 * 240 * 0 * 15 * 236 * 0 * 53 * 236 * 0 * 
S3 * 233 * 0 * 53 * 207 

5023 DRTR 0 * 243 * 135 * 132 * 243 * 0 * 255 * 132 * 0 * 
255 * 132 * 0 * 251*132 * 0 * 251 

5030 DRTR 132 * 63 * 234 * 255 * 43 * 170 * 131 * 43 * 2 
0*3* 16* 125* 1*17* 235* 63 

5031 DRTR 5*125 * 30 * 7 * 35 * 203 * 3 * 15© * 132 * 3 * 
35 * 132 * 0 * 255 * 0 * 0 

5032 DRTR 0*0* 15*0* 34 *3*0* 12* 243 * 0 * 12 * 25 
1 * 0 * 12 * 251*4 

5033 DRTR 15 * 255 * 13 * 15 * 24© * 53 * 73 * 132 * 217 

* 73 * 132 *213*31* 132 *213*213 

5034 DRTR 132 *213*213* 123 *213*213* 132 * 21 
7 * 75 * 132 * 53 * 73 * 24© * 13 * 15 * 255 

5035 DRTR 4* 12* 251 * ©* 12* 251 * ©* 12* 3* ©* 34* 
15* ©.* 0* ©* 0 

5036 DRTR © * 255 * © * 3 * 35 * 132 * 3 * 15© * 132 * 7 * 3 
5*203*5*125*30*17 

5037 DRTR 235 * 63 * 16 * 125 * 1 * 43 * 2© * 3 * 43 * 17© 

* 131 * 63 * 234 * 255 * © * 251 

5033 DRTR 132 * © * 251*132 * © * 255 * 132 * © * 255 * 
132* 135* 132* 243* 207* ©* 243 

5033 DRTR 233 * © * 53 * 236 * 0 * 53 * 236 * © * 53 * 24© 
*0* 15*0*0*0*0 

504© DRTR © * 0 * 0 * © * © * © * 0 * © * © * © * 0 * 0 * © * 0 * 0 * 
© 

5041 DRTR 0*0*0*0*0*63*255*255*43*0*3*33 

* 17* IS* 32* © 

5042 DRTR 2* 33* 17* 13* 3* 0* 3* 3* 17* 24* S* ©* 3 

* 2* 17* 32 

5043 DRTR 2*0*32*2*17*32*0*123*123*0*34* 
0 * 0 * 3 * 0 * 0 

5044 DRTR 0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 * © * 0 * 0 * © * 0 * 0 * 0 * 


5045 DRTR 0*0*0*21*0*0*60*0*0*32*0*0*163 

* 0 * 2 * 170 

5046 . DRTR 0*10* 3©* ©* 3* 30* 123* 3* 30* 123* 2* 
106*123*2*106*0 

5047 DRTR 0*170*0*0*40.0*0.0.0.0.0.0.0.0 

* 0* 255 

5043 DRTR 16© * © * 1© * 163 * 4© * 42 * 3 * 4© * 32 * 3 * 3 

* 32 *©*2*0*0 

5043 DRTR 0*0*0*0*40*2*128*168.2.160.128 

* 0* 32* 123* 0* 32 

5050 DRTR 0*0*0*0*0*35*0*2*35*0*10*35*13 

6* 42* 35* 133 __ 

5051 DRTR 42*35*170*10*170*170*2*170*163 

* 0 * 138 * 163 * © * 4© * 32 * 0 

5052 DRTR 0* 12.0.0. 53 * © * © * 43 * © * © * 251*132 

*0*251*132*15 _ 

5053 DRTR 234 * 240 * 63 * 255 * 252 * 3 * 35 * 132 * 7 * 

150 * 203 * 5 * 35 * 30 * 1 * 125 


Firecracker 

Boy 

Program 
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Firecracker 

Boy 

Program 


16/127 j 


5054/ DATA 64 / 0 / 85 / © / © / 2© / © 

247 / 24 1 / 76 / 255 / 205 

5055 DATA 24© / 247 / 1 35 / 0 / 255 / 1 32 / 

2/. ©^ 255/ 192/ 0/ 247 / 192/ © 

DATR — — _ - 


5057 DATA 

/i © 

5058 DATA 

/ 0/ 85/ © 
5053 DATA 

/ 85 / 0 / 0 

5©6© DATA 

© 

5061 DATA 

/ 0 j Q 


68 / 67 / 
247/13 

f 7 / 132 / © 

0 / © / 0 / 0 / © / 0 / 0 , 0 / © / 0 . 0 / © / © / 0 / 0 / 
0 / 0 / 0 /©/©/©/©/©/©/©/©/©.,©, 12^0 
48 / © / © / 132 / ©/ 3 / 0 / 0 / 12 / 0 / 0 / 12/0 
© - 85 / 0 / © / 87 / © / © / 253 / © / © / 85 / © / © 
© / © / © © / © / © / © / © / 0 / 0 / 0 / 0 / 0 , 0 , 0 , 
©/ 0 / 0 / 0 / 0 , 0 , 0 , 34 /©/ 0 / l ©/©/©/76 


5062 DATA 
/ 0 / 85/ 0 

5063 DATA 
85/©/© 

5064 DATA 
0 

5065 DATA 
/ 0 / © 

5066 DATA 
/ © / 65 / 0 

5067 DATA 
85/0/0 

5068 DHTfl 
0 

5063 DATA 
/ 1 

5070 DATA 
/ 0 / 0 / 85/ 0 

5071 DATA 
85 / 0 / 0 

5072 DATA 
0 

5073 DATA 
4 

5074 DATA 
* 0/ 85/ © 

5075 DATA 
85/0/0 

5076 DATA 
0 

5077 DATA 
32 

5078 DATA 
/ 85/ O 
5073 DRTA 
85/0/0 

5080 DATA 
0 

5081 DATA 
0 

5082 DATA 
/ 0/ 85/ 0 

5083 DRTA 
85/ 0/0 

5084 DATA 
0 

5085 DATA 
16 

5086 DATA 
0/85/0 

5087 DATA 
85/ 0/0 
5066 DATA 
0 

5083 DATA 
0 

5030 DATA 
0/0 

5031 DATA 
0 / 0/0 

5032 DATA 
© 

5033 DATA 
© 

5034 DATA 
0 

5035 DATA 
0/0 

5036 DATA 
15/254/0/ 

5037 DATA 
255/0/14/ 

5038 DATA 
/©/15/255 
5033 DATA 


43 / 0 / 0 / 1 32 / 0/ 3/ 0/ 0/ 12/0/0/ 12/0 

0/85/0/©/85/©/©/85/0/©/85/0/0/ 

© / 0 / 0 / © / 0 / 0 / 0 / © / © / © / © / 0 / 0 / 0 / 0 / 

0/0,0,0,0,0,0,0,©,©, 1 36 / © / © / 36 

48 / © / 0 / 200 / 0 / 3 / © / © / 12/©/© / 12/0 

0 / 85/ 0/ 0/ 85/ ©/ 0/ 85/ 0/ 0/85/ ©/ ©/ 

0 ,0,0, 0,0, 0,0,0,0, 0,0, ©,©,©,©, 

© / 0 / 0/ 0/ 0/ ©/ ©/ 0/ 0/ ©/ 32/ 0/ 2/ 0/ © 

168/0/0/132/0/3/16/0/12/0/0/12 

0/85/0/0/85/0/©/85/©/©/85/©/©/ 

0 / © / 0 / 0 / 0 / 0 / 0 / 0 / 0 / © / © / © / 0 , 0 / 0 / 

0 * 0 / 0 / 0 / 0 / 0 / 0 / 0 / © / 0 / 0 / 0 , ©! / 0 / © / 

64 / 0 / 6 / 64 / © .> 3 / 16/0/ 12/ © / 0 / 12/0 

0/85/©/0/85/©/0/85/©/©/85/©/©/ 

0/0/©/©/0/©/©/0/©/©/0 ..0/0/0/©/ 

0,0,©, ©,©,©, ©,©,0,0, ©,©,©,0,0, 

0/0/8/0/0/41/0/0/ 12/0/©/ 12/0/0 

0 / 85 / 0 / 0 / 85 / 0 / 0 / 85 / 0 .. © / 85 / © / © / 

0 / 0 / 0 / 0 / 0 / 0/0 / 0 / 0 / 0 / 0 / 0 / 0 / 0 / 0 / 

0 / © / 0 / 0 / 0 / © / © / © / © / 0 / © / 0 / © / 0 / 0 / 

0/ 0/ 32 Z0/0/8/0/0 / 26/ 128/ 0/ 12/0 

0/85/©/0/85/0/©/85/©/0/85/0/©/ 

0 * ® ® / © * 0 / 0 / 0 / 0 / © / 0 / 0 / 0 / 0 / 0 / 0 / 

0 / 0 / 0 / 0 / © / 0 / 0 / 0 / 0 / 0 / 0 / © / 0 / 0 / 0 / 

0 / 0 / 32 / 0 / 0 / 1 32 / ©/ ©/ 17/0/0/0/0/ 

0/ 85/ 0/0 / 85/ 0/0 / 85/ 0/0 / 85/ 0/0/ 

© * © / © / © / 0 / © / © / © / © / © / © / 0 / 0 / 0 / 0 / 

0 / 0 / 0 / 0 / © / 0 / 0 / 0 / © / 0 / 0 / 0 / 0 / 0 / 0 / 

0/0/0/0/0/0/0/0/21/0/0/0/0/0/8 

0 Z 63 z 0/ 0/ 85 Z0/0/0/0/0/63/ 0/ 0/ 2 

0 / 0 / 0 / 0 / 0 / 0 / 0 / 0 / 0 / 0 / 0 / 0 / 0 / 0 / 0/ 

0 / © / 0 / 0 / 0 / 0 / 0 / © / 0 / 0 / 0 / 0 / 0 / © / 0 / 

0 / 0 / 0 / 0 / 0 / 0 / 0 / 0 / 8 / 0 / 0 / 0 / 0 / 2 / 0 / 

0 / © / 32 / 0/ 0/ 0/ 0/ 0/ 0/ 0/ 0/ 0/ 0Z 32 / 

255/255/255/©/5/87/0/15/255/0/ 
15/254/© 

15/255/0/15/255/0/15/255/0/15/ 
255/0/14 

255/0/15/255/0/15/255/0/15/255 
/0/15/255 

0/15/ 254/ 0/ 15/ 254, © , 15/ 255/ 0/ 5 
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. 87. 255 . 255 . 255 . 255 

5 1 00 DflTR 0 Ji 0 . 0Ji 0 / 0 Ji © . 0 . © A & A 0 A 0 A 0 A 0 A 0 A 0 A 

0 

5101 DflTR 0,0/0,0,0,0,252,0.3,87.0.3.91. 

0 A 3 A ©5 

5102 DATA 192,0,215,0/0^28/0/0.48.0^0^11 

6 . © . © . ©4 . 0 

5103 DflTfl 0, 16,0,0, 16,0,0,204,0,3,3,32, 1 

.12©,64,© 

51©4 DflTfl 0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A 

0 

5105 DRTR 0,0,0,0,0,0,252,0,8,87,0,3,91, 

©,3•©5 

510© DRTR 192,0,215,0,0,23,0,0,48,0,0,11 

© A 0,0 A ©4 A 0 

5107 DRTR 0, 16,0,0, 16,0,0,48,0,0,43,0,0, 

56,0.0 

510© DRTR 0.0.0.0.0.0.0.0.0.0.0.0.0.0.0, 

0 

510© DRTR 0.0.0.0.0.0.0.0.0.0.0.0.0.0.0. 


5110 DRTR 0.0.0.0.3.255.0.14,186.192.250 
.1S6.IT©.127,255.255 

5111 DRTR 255.255.254.255.255.255.5©.1©2 
. 235. 15.©. 60.0.0. 0.0 

5112 DRTR 0.0. 0.0. 0.0.0.0.0.0. 0.0. 0.0.0. 
1 ©2 

5113 DRTR 0.0.240.0.0.252.0.0.255.0.0.25 
5.1©2.0.255.240 

5114 DRTR 0.234.192,0.230.1©2,0,221,192. 
0.221.255.255.221.206.11 

5115 DRTR 221.206.11.255.255.255.127.255 
.253.236.0.5©.48.0.12.0 

5116 DRTR 0.0. 0.0. 0.0.0.0.0.0. 0.0.0.0.0. 
1 2© 

5 1 IT DRTR 0. 0. 128. 0.0. 128. 0. ©. 12©. 0. 0. 12 
8.0.0.164.0 

511© DRTR 0.13T.0.0.130.64.0.12©.144.5.8 
0 . 3©. 5. ©4. ©. 5 

511© DRTR ©5.2.6©.©5.64.14©.255.255.255. 
5© a 0 a 5©. 12.0. 12.0 

SI 20 DRTR 0.0.0.0.0.0.0.0.0.0.0.0.0.48.0 


5121 DRTR 48.0.3,255.0.10.186,128,2.198. 

160 . 2 . 251 . 160 . 2 . 1©0 

5122 DRTR 160.0.1©6.128.0.1©6.12©.0.1©6. 
0.0.1©4.0.0.4©.0 

5123 DRTR ©0.48.3.80.4©.3.255.255.255.5© 
.0.236.12.0.4©.0 

5 124 DRTR 0.0.0.0.0.0. 0.0.0.0. 0.0.0.0.0. 
0 

5125 DRTR 0.0. 0.0. 0.0.0.0.0.0. 0.0.0.0.0. 
2 

5126 DRTR 21©.©.2.21©.0.3.255.3.1.©5.15. 
1©4.1T0.63.240.©4 

512T DRTR 255.252.252.255.255.255.170.IT 
0.1T©. 55 a 0 a 55. 12.0. 12.0 

512© DRTR 0,255.0.3,85,1©2,3,150.192.7.8 
5.20©.5.©5.©0.1 

512© DRTR 125.64.0.©5.0.0.20.0.0.IT©.128 
.3.234.240.12.251 

5130 DRTR 204.12.251.204.12.255.204.5.25 
5.212.2.243.20©.S.243.224 

5131 DRTR 32.IT©.136.128.1T0.13©.255.255 
.255.5©.0.5©.12.0.12.0.256 


0 REM m *53* s**==+:=+= ■&■*■•** *==+= *•=*= 

1 REM *e FIRECRACKER BOV CFRRT 2 > m 

2 REM BV CHARLES MOTT. JR. 

3 REM 5*5 <C> 1384 FANFARE HOUSE. IHC - 

4 REM * BOX 3062 HOUSTON. TX TT253 * 

5 REM 
20 : 

3© REM INITIALIZE VARIABLES 

4© 

5© D I MDR C16>. FG a6) = N=2 : V =53248 

60 SC=1024 : JS-30T2 : S1=204© = 32=31 + 1 : S3 = 31 

+2:M=130=BO=0:AU=©:PR=219 

T0 S4=S 1 -+-3 = 35 = S 1 -*-4 : S6=S 1 -*-5 : 3T=3 1 -*-© : 3© = S 1 
-*-T : BR-53280 ■ F*H=© : AR = © : EH=78 : XX = 3 
©0 FORT=0TO64 : POKES32+T.0 : NEXT 
100 FORL=0TO24-POKEV+SC+T.0 : NEXT 
110 POKEV + 3C+1 . 130 = POKEV+SC+5. © : POKEV+SC 
-*-24. 15 

14© FORK=0TO15 

1 5© RERDDR < K > = FG «£ K > =0 = NEXT 
16© HH=PH : FC=1T6 - FOKEBR. 2 = U=PH 

130 POKEV+28.255 : POKEV+37.10:FOKEV+3S.©: 
FORT=0TO7POKEV+39+T.1=NEXT 

1 ©0 DRTR© . 1.5. ©.T.©. 6.0.3. 2.4. ©.©. ©.5.0 
200 GOSUB650 = POKEV+21.255 = PU=1 
21 © = 

220 REM MAIN GAME LOOP 

230 
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24© GOSUE570 

25© ONER < JV > GOTO260 ^ 260 .. 270 ^ 260 . 260 .. 260 ^ 
280 260 
26© GOTO230 
270 NX=MX+RP:GGTQ230 
2©© NX=riX—RP : GOT029© 

23© IFMXC3©THENMX=30 
3©© IFMX>240THENMX=240 

3 1© PGKE'vS N : H=H+kPH*PIJ> : I FN>2400RN<25THE 
NPU-—PU : H=N+CPH#PU> 

32© IFFG < 3 > =5RNDFG < £ > —5THEH350 

33© POKEV+12/ EO = BO=EO+HH: IFEO>244THENBO= 
O^ROKEV-*-1 2 j- BO : FC= I HT C RND Cl) 1 1 +30 > : FG C 3 

340 FCsCINTCFC/2>)*2 

35© IFFC<BGRNDFGC2 >=0THENBR=BQ : POKEV+10, 
ER - FuC2) sa 5 

36© I FFGC2)=0THENPOKEV+10,BO 
37=*© I FFG < 2 > =5RNDHU>EHTHENGOTG770 
33© I FFG < -4 > - 0THEHPOKES7 ,217 

33© I FFG C4) -5THENPOKES7 >213 = FG < 4 > ==© : GOTO 
41© 

4©0 FGC4)=5 = NR=6 : GOSUB144© 

41© IFFGC2)=5THENNU=NU+1 
42© IFFGC2)=0THENNU=0 

43© IFFGC3)=5RNDFGC2)-0THENFGC3)=© 

44© GOSUB123© 

45© POKEV+6 . RU : RU=RU+XX : I FRIJ> C 253—XX > THE 
HGOSUB143© 

1 5 > =5RNDRU= 1 08RHDPEEK C V+ 16> = 1 36 
ir t!^tJE R!=p,R ‘ + ' 1 : POKES4 -* F 'R : I FPR>224THENPR=2 1 3 
■POKES4,PR 

470 I ERG < 1 > =5THEHPOKEV+2 BX : POKEV+3 * & X -+B 
V » BV=BV+RP : GOSUB143© : IFBV>123THENGOSUB61 

43© IFFG < 1 > =0THENPOKEV+27.. REEK C V+27>OR2 
43© IFFGC1)=0THENBV=0:POKEV+2,MX 
5©© POKEV+4,MX:IFFR=16THEN240 
51© POKEV+27. REEK < V+27> RND< 255-2 > 

52© IFFGC 1 > =5THEN240 

53© FGC1>=5:BX=MX:G0T024© 

54© 

55© REM RERD JOYSTICK 

560 : 

S £ g -fV=REEK < V+JS > = FR=JVflND 1 S : JV= 1 5- < JVRN 

D15) - RETURN 

53© 

53© REM MEW BALLOON 

6©0 

SI© POKEV+2 .. MX : POKEV+3 ,81 : FG Cl) = 0 
OSUB1410 = RETURN 
62© : 

63© REM INITIALIZE SPRITES 

640 

65© ROKES12©2 : ROKES2,2©3 : POKES3,205 : ROK 
ES4,213 : MX—13© 

66© ROKES5,216: ROKES©^ 2©6 = POKE37, 217 : ROK 
ES8, 132 : POKEV+23, 3 = POKEV+23, © 

67”© POKEV, M : ROKEV+1 ^ 14© = POKEV+2, MX 
63© POKEV+3,31 : POKEV+4MX : POKEV+5,81 
700 POKEV+6 , RU : POKEV+7, 134 : POKEV+8 , 237" 
710 POKEV + 3, 137* = POKEV+10, BO : POKEV+ 1 1 135 

7*3© POKEV+ 12, BO : POKEV+ 13, 1 37" 

7" 4© POKEV+ 16, REEK < V+ 1 © > OR 1 2© = POKEV+ 14, 4© 

: POKEV+ 15,1 7*3 : POKEV+27 . REEK C V+27 > OR 1 34 
7"5© RR I NT '• : GOSUB 1 ©0© 

7"6© RETURM 
770 

7-3© REM GRME END 

730 

3©0 POKEV+SC+4,123 : FORT=lT033 : MEXT 

31© FORT=206T0213 : ROKES© ^ T : FORV=1TO40 : ME 

XTV, T = POKEV + SC+4, 123 = ROKES6 * 214 

©2© FORT= 1 TO40 : NEXT : ROKES© ,215 = FORT 8=8 1 TO 1 

©0 = MEXT 

33© POKEV+21 ^ 223 : ROKES6, 206 : JU=0 : BY=3 : M= 
1 7"3 : POKEV+ 15, 1 7*6 : FORT= 1 TO60 = NEXT 
©4© FORT—132TO201 : ROKEV+15, M-JU = BY=BV+5 
: GOSUB143© = ROKES©, T = JU«JU+5 
35© FQRV —1T03©:MEXTV,T: 

36© FORT = 2©1TO132STER—1 : POKEV+15, M-JU = BV 
“BY—5 :GOSUB143©:ROKES©,T:JU*JU~5 

©7*© FORV® 1 TO3© = MEXTV ^ T : POKEV+ 15, 1 73 


BY=6 = G 


POKEV+21 ^ 221 : IFBP>TSTHENTS=BP : BP=0 
ER2$DQQB ■■■■■■■■■■! 5TTOF - SCORE= ** TS 

flOPRinT"WWEPRESS FIRE BUTTON TO GO RGR 
320 GOSUB570:IFFR=16THEM320 

9 ^r- FOKE53 2 65 " PEEK C 53265 ) RND239 : ROKEV+16 

-■ REEK C V +-1 © > RND C 255—3 > = EN*78 : FH=3 

950 POKEV+2 1 , © : BO —© RR—219 : M= 1 3© : MX= 1 3© : 
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RU=0:FORT-1TO10=FG<T>=0=NEXT:BP=—1© : GOSU 
B1240 

960 GOSUB610:BP=0:GOSUB650 : PU=1:POKEV+21 
.. 255 - POKE53265 * PEEKd 53265> OR16 : GOT0240 
970 

930 REM PRINT GAME SCREEN 

99 © = 

1©©© RR I NT •• ihj^asa — — — — — — — — — — — — — 

-g| gg •• • 

101© PR I NT " Stoh. aFIRE STATION =t* 1 Ifc. 

3 " S 

102© PRINT"ka 

ss ; 

103© PRINT'^a ——ii— — — — — 

—■ HaWMAVOR^S ^* 11 ; 

10-40 print"^ a si a si a si a 

SI B SI a#*4TH OF**”; 

1050 pr i nt ik.si a si a si a 

si a si at***; jtul v*** •* j 

10<S0 PRINT"k.a - - - 

- Ba»3*fPflRADE^"; 

107-0 PR I NT " I*.SI — — — — — — — — — m 


SI 


a 


1030 

1090 

T l"©0 

111 © 

■ ■ a 

1 12 © 

— a 

1 13 © 
1 14 © 

— a 

1 15 © 


PRINT M kSh 
PRINT'^a ■ 
PRINT"k* 
PR I NT " fehwSI ■ 
PRINT"k3h 
PR I NT " fe^SI ■ 
RRINT * 
PRINT* 


1 1 6© RR I NT *' fe^Sfe 

Hi—r 


t— i—i—i—i—r 
1 170_PRINT’VS m 

m m am I I I I I I I I I 1 

1 1 00 RR I NT ** fe^S hi 


119© PRINT"k.a — — — — — — — — — — — — — I 

a SI ■ aWcaifiVORSMfl 

1200 PRINT "BIS! I 

a SI ■ 

1210 RR I NT " SSSI- 

-a" j . 

1220 PRINT 11 a»IBI_ _ 

-TT* 

1230 PRINT" aiiiiiaSCORE = 9 0 SFIRECR 

ACKER—RO I NTSS5S" 

124© RETURN 
1250 : 

126© REM COLLISION DETECTION 

1 270 : 

1200 Q l =REEK < V+30 

1 29© L 1 =GJ 1 AND 1 : I FL 1 = 1 THENGOSUB6 1 © = BP-BP — 
2:GOSUB155©:RETURN 

1300 L2=Q1AND2:L3=Q1AND4:L6=Q1AND32=L7=Q 
1AND64 

131© IFL2=2ANDL6=32ANDBV>100flNDL7=0THENR 
OKES6 j. 204 : FORT = 1 TO200 : NEXT - POKES6 * 13 - POK 
ES2,13:GOSUB1340 

132© IFL2=2ANDL6=32flNDL7=64flNDBV>1©©THEN 
BP-BR—11:GOSUB1340 
1330 RETURN 

134© PQKEV+10, BO : ROKES6✓ 206 - GOSUB61© - GOS 
IJB 14 10: FORT = 1 TO 1 © = FG < T > =© = NEXT - BP=BF+ 1 © 

135© GOSUB155© : PQKES2203 : RETURN 
130© 

139© REM SOUND ROUTINES 

1400 

141© ROKEV+SC+4, 129 = ROKEV+SC+1,12 = PGKEV + 
SC+4,12©:RETURN 

143© S1=BV:ROKEV+SC+4,33:ROKEV+SC+1,S1 : R 
OKEV+SC+4,32 : RETURN 

1440 Sl=Wfi = POKEV+SC+4, 33 = ROKEV+SC+1 , SI : P 

OKEV+SC + 4, 32 = RETURN 

145© 

146© REM MOVE FLORT RCROSS SERM 

147-© 

1 400 I FPEEK < V-*- 1 6 > = 1 28THENROKES4 , 13 : POKE V 
+ 16, 136 : AU=0 = POKEV + 6, RU = ROKES4, RR = FGC 15> 
=5:RETURN 

1 49© I FREEK d V-+ 1 6 > = 1 36THENROKES4 , 13 = RU-0 = 

POKEV+6,RU 

150© POKEV+16,12© 

1510 POKES4^ RR = RETURN 
152© 
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REM PRINT SCORE 

1 540 

1550 pr i nt ■■ mmmmt 

1 560 PH=PH+. 5 = EN=*EN-2 
1570 IFPH>16THENPH®1€> 

1580 IFBP<0THENEP=0 

153© RRI NT ■■ arniiiiiiiiiaii 11 ; BP; ■■ b=B" : retur 


RERDV- 


Firecracker 

Boy 

Program 




Into the Pot 


Frank Mikulastik 


0 REM 

1 REM *e INTO THE ROT * 

2 REM * EV FRANK MI KULflST IK *£ 

3 REM * CO 1334 FANFARE HOUSE, INC. * 

4 REM *5 BOX 3062 HOUSTON, TX 77253 =* 

5 REM *&&&&*e;*E:*;*&:*«&**ti4i;*e3*3e*E;**g**:*:9*3*:*e3fc:*:*6;4e;* 

1 @ 

11 REM INITIRLIZATIOM 

1 £ - 

13 SI =54272 - CM=55296 : SM=49 1 52 : V ==53243 

1 3 POKE532S0 ^ 3 : RR I NT " Zl" ■ RR I NTCHRf C 1 42 > : G 

QSUE4030 

20 POKE56578^ REEK C 56578> OR3 

21 POKE56576, C REEK C 56576> RND252> OR© 

22 ROKE53272, C REEK C 53272> AND1 5 > OR0 

23 POKE643 1 32 ■ RR I NT ** Z2" 

30 ROKE56334, REEK < 56334 > ANL254 

40 ROKE5323 1 ^ 3 : GOSUB3300 : POKE54273, 20 : RO 
KE1 . REEK C 1 > AND251 

50 FOR I =0TO5 1 1 : POKE I ■+• 1 4336+49 1 52 .» REEK <1 + 

53248) : NEXT 

60 POKE 1 REEK C 1 > OR4 

T-© ROKE56334 -• REEK C 56334 > OR 1 

80 ROKE53272, C REEK C 53272> AHD240> OR14 

30 F = 0 = GOSUB3000 : F=1 

1 0© ROR 1 = 1 4336+43 1 52-+-1 60*STO1 4336+491 52+ 
168*3+7 : RERDfl : POKEI ^ R : NEXT 

110 RORI=43152+16+64TU49152+18*64-1:READ 
R - POKEI ^ R : NEXT 

200 RORI=0TO24:ROKE54272+1,0:NEXT 
210 ROKE53270REEK < 53270>OR16 

220 ROKE53282,3 : ROKE53283,2 

300 S C 1 > = 1S3 = SC2) = 164 : S C 3 > = 163 : S C 4 > = 165 
305 32 C 1 > = 16© : S2C 2 > = 1 6 1 = 32C 3 > = 16© = 32C 4 > = 
162 

31© BN(1,1)=©:BN(1,2)=1:BN(2,1)=0:BN(2,2 
>=—1 

32© BN(3, 1 > = 1 : BN(3,2)=© = BN(4,1)=—1 : BN(4, 
2>=© 

35© GOSUB745 = ROKEM1 ^ SR = GOSUB3080 

354 : 

355 REM STRRT GRME 

356 

40© GOSUB30© 

41© GOSUB700 
42© T I :*== "©00000 ■' 

43© 

431 REM MRIN LOOP 

432 

50© GOSUB1000 
5©5 GOSUB4000 
506 ROR BM=1TONU 
51© GOSUB1500 
515 NEXT 

52© FORBN=1TONU = IRR2C BN > 0552THENGQT0523 

521 ROKESM + R2C BN > .. 32 : ROKESM+473+ NU.. S2(1) 
:ROKECM+473+NU,3 

522 FORBP=BNTONU—1=P2(BR)=R2(BR+1):NEXT 
525 NU=HU—1:IRNU=0THENGOTO2000 

527 s * GOT0530 

523 NEXT 

530 GETR$ : I Ffl$= " Ml" THENT2$=T I : POKES 1 -+~4 .. 0 
:POKES1+11,0=G0T0210© 

54© RR I NT " ;MI B4? (TI$, 

3 ^ 2 > ^ " wmmmmmmv' ;ri ghtt (ti$, 2> 

55© SP=SP+1:IFSP>17THENSP=16 
555 ROKEMl,SR 


Into the 
Pot 

Program 
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590 GOTO500 

g q g 

690 REM INITIRLI2E CHRRRCTERS 

333 = 

7*00 M 1 = 1 F’l =549 

710 PUKECM+P POKESM+P 1,S<N1> 

r 20 N2 < 1 > = 1 : P2 C 1 > =32 : M2 < 2 > =2 : R2 < 2 > = 1 62 
<30 POKESM+P2C 1 > ^ S2<N2< 1 > > : POKECM + P2< 1 > 

3 

7^40 FOKESM+P2 < 2 > 32 C M2 < 2 > > : POKECM+P2 <2>, 

•3 

745 Ml=49152+1016:SP=16 

i'SW PUKEV+21 .. 1 : FOKEM1 .. SR : POKEV + 29, 1 : POKE 
V+23, 1 = POKEV+23 j> 1 

760 POKEV+37/ 7” = POKEV + 3S, 2 : POKEV+39, 0 : POK 

EV+16, 1 : POKEV 23 - POKEV+1 , 131 

770 POKE53282,2:POKE53283,6 

780 MU=2:MM=2 

790 RETURN 

7^3 1 

732 REM RRIMT PLRV SCREEN 

733 .= 

300 PR I NT ” Zl" : POKE5328 1,12: POKE532S0 .. 0 : GO 
SUE-4030 

302 FORI—0TO33 

303 POKE I +CM j> 14 : POKEI+SM, 167 

304 NEXT 

303 FORI—33T0333STER4© 

907 POKEI+CM,14:ROKEI+SM,167 
303 NEXT 

311 FORI=999TO960STEP-1 
3 12 POKE I +CM >14 = POKE I +SM .* 1 67 
313 NEXT 

313 FORI—3S0TO0STER—40 

317 POKEI+Cn,14:FOKEI+SN,167 

313 NEXT 

321 FOR I —3TQ37STER2 : L_=L_-*- 1 : I FL> 1 THENL=0 

322 F0RJ=L+2T022STEP2 

323 P=I-#-JT*40 - POKER+CM, 3 s POKEP+SM, 133 : GOS 
UB4040 

324 NEXT = NEXT 

323 FORI=43310431STEP—1 
327" POKE I +CM .. 3 = POKE I +SM ^ 1 67 
323 NEXT 

331 FORI=431TO3303TEP40 

332 POKEI+CM„ 3 : POKEI+SM^ 167 

333 NEXT 

333 FOR I =7" 1 1 TOT 1 1 3 

937 POKE I +CM-40 .. 3 = POKE I +SM-40 1 37* 

333 NEXT 

340 FOR1=1TQ4© 

34 1 X= I NT < RME < © > #38+ 1 > : V= I NT < RNE < 0 > *23-*- 1 
> :POKESM+X+V#40,137 

342 FOKECN+X+V#40,3 

343 NEXT 

331 FORI=0104:FORJ=0TOS 

332 POKEI#40+J+472+SM,32 

333 NEXT - NEXT 

334 I=351 : POKEI+SM32 = POKESM+I — 1 ^ 32 

337^ PR I NT " IN : QOUPUBSEC : 00 

333 PR I NT " ^ ^ ^ ^ ^ 

HI" " " " - HI'" 

333 PR I NT " 

"" " "" " " ?|5 y T 

330 RETURN 
333 

330 REM 
33 1 


MOVE COOK 


1000 JV= 15— C PEEK < 53320 > RND15) 

1020 IFJV=1ORJV=9THEHT1=©:T2=—1:GOTO1100 
IFJV=80RJV=10THENT1 = 1= T2=© : GOTO1 100 
IFJV=20RJV=6THENT1=©:T2=1:GOTO1100 
IFJV=40RJV=5THENT1=—1:T2=0:GOTO110© 
103© RETURN 

1 1 ©0 T3 = P 1-+-T 1 +T2#40 : T4=T3 = Q 1 =PEEK < T3 + SM > 

- - - — IFQ1=32THEN1200 

IF C Q1<>133 >THENRETURN 
FOR1=1TONM 
1 1 40 T4=T4-+T 1 +T2#40 = Q2 = PEEK < T4+SM > 

1 142 IFCQ2=32> THENGOTO1 15© 

1 144 IFC Q2C>133 > THENRETURN 
1143 NEXT 
1148 RETURN 

1 150 POKET4 + SM, 133 = POKET4+CM, 3 
1200 N 1 =N 1 -*- 1 - I FN 1 >4THENN 1 = 1 

12 1© POKER1+SN32 : P1=T3 = POKER1+CM.. 3 : POKE 
P1+8M,SCN1> 

1230 RETURN 
143© 

1431 REM 

1432 : 


1 ©30 
104© 
1 ©50 


111© 
1 12© 
1 130 


MOVE CHICKEH 
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1 see R= I NT < RND <&> 3*5-4-*- 1 > 

1 5 1 e T3 < BM > =P2 < EM > +BN < R .. 1 > -*-BN <R,2> *48 

1520 Q1=PEEK<T3CBM>+SM> : IFQ1=32THEH1600 
1590 RETURN 

1600 N2CBM)=N2<:BM> + 1 : I FN2 < BM > >4THENN2 < BM 
> = 1 :U9>=FREC0) 

161e PQKEP2< EM > +SM, 32 : R2 < EM > =T3C EM > : POKE 

P2 < EM > +CM .* Si : POKEP2 < EM > +SM „ 32 < M2 < EM > > 

1690 RETURN 

1 990 

1991 REM WIN SITUATION 

13S2 

2000 POKE532S2 j* ~F - POKE53283 ^ 7 
2002 GOSUB4020 

201e IRC REEK < 56320> AND16><>16THEN20S0 
2015 POKE53282, 2 = POKE53283^ 2 

2020 GO3UB4020 

2030 IF<REEK < 56320>AND16>O16THEN2080 
2035 GOTO2000 

2080 POKE53282,10=POKE53283,2 

2090 GOSUE3100 

2091 GOTO400 

2335 

2336 REM HO WIN SITUATION 

2397 

2133 PRINT"»>I PRESS V TO 3TOR - RRE33 N 
TO CONTINUE-" 

2 1 35 GET A3S = I FA$<> " V " ANDA$<> " N THENG0T02 1 
35 

2113 I FA$= V *• THENGOSUB3 1 33 = 00T0433 
2115 TI$=*T2$ 

2 1 23 RR I NT " S38B9S9K 91I N = ";MI Esfc < T 

I $ j. 3 ^ 2 > ; " X3k" ' ' HSEC : ” R I GHT$ <TI$,2>; 

2121 RR I NT sj- ------- - -- B" ; 


2193 GOT0593 

2191 

2192 REM RRINT TITLE SCREEN 

2193 

3333 ROKE532S3 .. 6 = ROKE532S 1 5 

3332 PRINT"a" 

333-4 I FF^OTHENPR I NT 72m " 

3337 RRINT 
333S RRINT 
3339 RRINT 

3311 PRiNT"ja sa&s zt&a &■&&&&&a sa 

&&H iS&<&4:<ScS:HI S54&59 &&2S Se4>5< ■& >& 5S 11 

3312 PRINT" S4&B &&&m S3&B S3&B St&B 

sa&a s*&a sa&a ci&B" 

3313 print" sa&a sa&a sa&a 

sma &&m 

331-4 PRINT" a&9 SKc&S £1&B S4&B 

m&m sa&a m&m m&m m&m" 


3315 PRINT' 


3316 PRINT" 

3317 PRINT 
3313 PRINT" 

3319 PRINT" 

a sa&a” 

3323 PRINT" 
£k&B la 

3325 PRINT" 
a&B' 1 

3333 PRINT" 


sa&a &&m 

&a m&a E4 i&JSc&m" 




C4& <& H 

E4.& 

za&a za&m =4&a 

Sl& 


=*&a 

S3&B 

si&a 

S4&B 

a 

=*&B 

zasm 

za&a 


3331 PRINT" E»&B 

a&B" 

3332 RRINT 

3333 RRINT 
333*4 RR I NT 

3837 PRINT"! BV FRANK MIKULASTI 

K" = PRINT = RRINT 

3038 PRINT"! <C> 1984 FANFARE HOUSE 

^ INC. ” 

3339 IFF=0THENGOSUB4033 : RETURN 

33*43 ROKE532S2 .. 2 - ROKE532S3 ^ 2 = FOR 1 = 1 T0233 
: NEXT 

33*41 GOSUB4000 

33*42 3P=SP+ 1 = I FSR> 1 7THENSP- 1 6 
33-43 POKEMLSP 

33*45 IF< REEK < 56323 > AND 16> O 1 6THENGOTO309 
3 

3353 ROKE532S2 .. 7 - ROKE53283 .. 7 - FOR 1 = 1 T0533 
: NEXT 

3351 GOSUE4333 

3355 IF<REEK < 56323 > AND16 > O16THENG0T0333 


3363 GOT03343 
3339 

3093 REM PRINT INSTRUCTION SCREEN 

3391 
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3 1 0© POKEV+ 1 j* £3 : POKEV 0 

3101 PR I NT " ra" : POKE53231 1 : POKE53280, 15 

3110, PRINT:PRINT"« SHINTO THE 

POT":PRINT:PRINT 

3111 PRINT"* EV FRANK MIKULflSTI 

K":PRINT 

3112' PRINT" <C> 1334 FANFARE HOUSE ^ 

INC- " : PRINT = PRINT 

3121 PRINT" aOBJECT = Bi GUIDE THE CHICKE 

NS TOWARD " 

3122: PRINTTAB<11); "THE COOK I NO POT BV PIJ 
SHING" 

3123 PRINTTABCll);"BLOCKS TO MAKE R PRTH 
FOR" 

3124 PRINTTABCU);"THEM TO FOLLOW. SEE H 
OW FAST" 

3125 PRINT TRBC11);"VOU CRN GET BOTH CHIC 
KENS 

3 1 26} PRINTTRBC 1 1 > ; " raiINTO THE POT* • " 

31271 PRINT 

3123 PRINT"! HINTS=a IF VOU GET INTO 

R n*NO WINS*" 

3123 PRINTTRB(11);"SITURTION OR VOU WANT 
TO" 

3130 PR I NTTRB <11>; " PRUSE .• PRESS FT." 

3131 PRINT:GOSUB4030 

3132 PR I NTTRB < 11>; "SSPRESS FI TO START" 

3133 PRINTTRB<11);"PRESS FT TO STOP" 

3140 GETR$ 

3142 I FR$- " ■§" THEHRETURN 

3 1 44 I FA$= " HI" THENPOKE64S ^ 4 : PR I NT " Z2" - STOP 

3143 GOTO3140 

3300 FOR1=542T2T054236 : POKEI ^ 0 : NEXT 
3310 POKE54236 * 15 : POKE542TT .. 13 : POKE542TS 

j> 1 5 : POKE542T6, 33 = RETURN 

333T : 

3333 REM SOUND ROUTINES 

3333 

4000 REM SOUND 1 

400 1 POKES 1 -+-4 . 0 = POKES 1 +24 -■ 5 : POKES 1 -+-4 , IT: 
POKES 1-+*5. 15 : POKES1+6/ 15 

4002 S3- I NT < RND C 0 > *20+5 > : POKES 1 -+• 1 ^ S3 

4003 RETURN 

4010 REM SOUND 2 

40 1 1 POKES 1 + 11,0: POKES 1 +24 5 : POKES 1 + 11, 1 

T : POKES1 + 12, 15 = POKES1 + 13, 15 

40 1 2 33= I NT < RND <0>*1 ©-+-1 > = POKES 1 -i-T ^ S3 = POK 

ES1+8,S3 

4014 FORS4=1TO10 = NEXT 
4013 RETURN 

4020 REM SOUND 3 

4021 POKES1+4, 0 : POKES1 + 1 1^0: POKES1+24 ^ 10 
: POKES1+4^ IT : POKES1+5, 15 = POKES1+6, 15 

4022 FORS2-50TO 1 50 : POKES 1 .. S2 = POKES 1 + 1,32 
: NEXT 

4023 POKES1+4,© 

4023 RETURN 

4030 REM SOUND 4 

4032 POKES 1 +4 * 0 = POKES 1 + 11,0 = POKES 1 -+-24 , 15 
= POKESl+5, 15 : POKES1+3, 15 : F0KES1+4, IT 
4034 FORS2=4TO100STEP2=FOR33=32TOS2—4STE 
P—1 : POKES1 * S3 = POKES1 + 1 ^ S3 = NEXT : NEXT 

4033 POKESl+4,0 

4033 RETURN 

4040 REM SOUND 5 

404 1 POKES1+24, 15 = POKES1+4 * IT = POKES1+5, 1 
5:POKES1+6,15 

4042 POKES 1 ^ 13*65 = POKES 1-4-1 ^ I *56 

4044 POKES 1 -*-4 0 

4043 RETURN 

4030 

4031 REM CHARACTER DRTR 

4032 

4034 REM CHICKEN 

41©0 DRTR 255 ^ 13© .. 255,215,255 ^ 60^ 60> 255 

4110 DRTR 255 ^ 130 255,215, 255 ^ ©0 ©3 , 24© 

412© DRTR 255 ^ 13© ^ 255,215, 255 ^ ©0 ..252, 15 

4121 

4122 REM COOK 

4150 DRTR 0 ^ 255 > 13© ^ 255,215, 255 ^ ©0 ^ 255 
41©0 DRTR 0 ^ 255- 130 ^ 255,215,255 ^ 63 ^ 24© 
41T0 DRTR 0,255,130,255,215,255,252,15 

4130 

4131 REM BLOCK 

4200 DRTR 255 ^ 235,215, 235,215,235,215, 25 
5 

42 1 0 DRTR 255 255 ^ 255 255 ^ 255 ^ 255 j. 255 ^ 25 

5 

4220 DRTR 255 ^ 255 ^ 255 ^ 255 ^ 255 ^ 255 - 255 .. 25 

5 

5000 

5001 REM SPRITE DRTR 

5002 

5135 REM POT RND FIRE — 1 
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5 1 -40 * DRTfl 0 ^ 0 ^ 0 

5 1 50 DATA 0 j* €3 js 0 «» 0 0 

5160 DRTfl 0 >i 0 ^ 0 ^ 0 > 0 

5 1 70 DATA 0> 0,0,0,0 

5100 DATA 0^0.0,128,0 

5190 DATA 2^170,166,178,170 

5200 DATA 17-*^ 169, 170, 158, 107 

5210 DATA 154,187,231,185,186 

5220 DATA 238,123,122,238,251 

5230 DATA 234,153,251,233,191 

52- 40 DATA 63, 107, 191,15,235 
5250 DATA 116,15,233,252,3 
5260 DATA 251 , ©0, 0 ^ 251,192 
527-0 DATA © 

527*5 REM ROT AND FIRE — 2 

5230 DATA 0 , 0 .. 0 .. 0 ^ 0 

5290 DATA 0,0,0,0,0 

5300 DATA 0,0, 0,0,0 

53 1 0 DATA 0 „» 0 , 0 , 0 , 0i 

5320 DATA 0,128,0,2,170 

5330 DATA 170,170,170,170,17© 

53- 40 DATA 170, 169, 169, 170, 171 
5350 DATA 171,170,155,107,154 
5360 DATA 1 ©6 , 235 , 57 , 1 ©6 , 23 1 
5370 DATA 59,122,239,127,234 
5380 DATA 247,207,235,252,255 
5390 DATA 107,220,63,251,112 
5-400 DATA 0,251,192,0 

20000 

20010 REM RESTORE MEMORV 

20020 

20030 POKE648, 4 : PRINT'TS" : STOP 
REHDV- 
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0 REM 

1 REM 3*6 VORICK^S REVENGE *e 

2 REM m BV IGOR TULCHINSKV *e 

3 REM * <C> 1934 FRNFflRE HOUSE, IMG. * 

4 REM * SOX 3062 HOUSTON, TX 77233 a* 

5 REM *i*etf«l*i*i»|c*ta«eaea*9«t*c;*a*a*!4e*9*a*;4e*€a«e*ei*6:4e*6*a|c&!#'!*<**6 

7” REM INITIRLIZflTION 

6 

10 Q®PEEK< 53279> = GOSUB20000 :POKEV+12, 160 
:POKEV+13,60:POKEV+21^64:GOSUB24000 
1 1 GOSUB22000 : F= 1 : GOSUB23000 : F=0 : PR I NT " 73 
" s POKE53281 ^ 0 : POKEV+21,0 

14 SC«0 • NL®0 

15 GOSUB22000=GOSUB20020:GOSUB21000:X=70 
: V-200 : DX*8 : DV*0 : POKEV+4 * 70 : POKEV+5, 205 

16 POKEV+21 ^ 25S 

17 

13 REM CONTROL. LOOP 

19 

20 Q*»PEEK< 1 97 > : IFQO64THENPOKE2040, 194 = R 
OKE2041„195:GOTO40 

30 POKE2040, 192 : POKE2041 193 

40 X«X+DX= IFX>255THENX=*255 

41 V-V+DV:POKE53232,X : POKE53253/V:POKE54 
273 * <?40-V>/8 

42 DV“DV+.4 

50 Z“=PEEK < 53279 > ORPEEK < 5327-3 > ORPEEK < 5327- 
9 > ORPEEK C 53279 ~> ORPEEK < 53279 > : I FZ=0THEN20 

51 Z»PEEK < 33278 > ORPEEK < 53278 > : 1 FZO0THEN 
150 

57- : 

58 REM SPRITE-BACKGROUND COLLISION 

59 

60 I PPEEK < 1 024+40* I NT C < V—34 > /8 > -*-1 NT C < X— 1 
4 >/8> >"32THEN88 

7-0 DV«—DV : V*V+3*DV : POKE53253, V : POKE54283 
^ 65: Q=SIN<8) : Q^PEEK< 53279) : DV=DV+1.7 
30 IPPEEK < 1024+40*INT < < V—50 >/8> + INT < C X—1 
4 > 78> > ®32THEN100 

90 DV*-DV:V=V+3*DV:POKE53253,V:POKE54233 
> 65 : Q=SINC8) : Q=PEEK< 53279 > 

100 I PPEEK < 1 024+40* I NT < < V—42 > 78 > -*- I NT < < X— 
22 !> ^ 8> > ®32THEN120 

110 DX 8 *—DX = X«X+3*DX = POKE53252, X : POKE542S 
3- 65 : Q“SIN < 3 > : Q=PEEKC 53279 > 

1 20 I PPEEK < 1 024+40* I NT < C V —42 > 78 > -+-1 NT < < X— 
7 >78> > «32THEN140 

13© DX=—DX : X=*x+3af6I3X : POKE53232, X : POKE5423 
3 65 : Q«»S IN<SINCSINC3>>> : Q=PEEK < 53279 > 

140 POKE54283 ^ 0 : GOTO20 

147 

143 REM SKULL COLLISION 

149 

1 50 QnPEEK < 53278 > H-S I N C 3 > = Q=PEEK < 53278 > 

152 I FQO 68 THEN 1 60 

153 POKE54276,129 

154 T =it72+ C RND «C3> — - 5>a#6<l 00000—SC > 720000 = 
DX«COS< T >#8: DV=SIN C T > *3 

1 56 POKEV+45 > RND C8>*1 4-+-1 
157 

15© REM POINTS COLLISION 

159 

160 POKE54276, 17: I PQO 1 2RNDQO20RNDQO36 
THEN2O0 

161 POKE54290 .. 65 : POKE542S7 ^ RND C8>*100+50 
170 SC»SC+100 = IFQ=36THENSC=SC+400 
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171 IFQ=12THENPOKEV+42, RNDC S > * 14-h1 
1 I FQ»20THEHPOKEV+43 , RND C 8 )#l 4-+-1 

1 73 I FQ«36THENPOKEV+44 , RND C © > 3* 1 4-*- 1 : DV=RN 
DC 8 J *€2-4 -1 

1 ©0 S$=STR$ C SC > : S«:=n I DS£ C S^ ^2^ LEN C S=*= > — 1 > 

1 ©5 ROKE54287, RND C8)#l00+50 

1 ©0 PR I NT ” WOHDClai" TAB C 37—LEN C S^ > > S3? : Z«PEEK 
<53278) 

195 ,PDKE54290, 0 
1©7" ■ 

IS©'REN GUTTER COLLISION 

1 99 

200 IFQ0132THEN235 

210 NL«NL+1 

211 X«70 : V«200 = DX=2 = DV«0 

212 N 2 *=STRS|P C 3-NL > = N^==N I U& C Ns§? ,2,1? 

214 RRINT ,, *3DMMKDHKttra:* ,, TRBC34>NiS 

220 POKE53275, 4: FOR1 = 1T0254—PEEKC V+5> : PO 

KEV+5 , PEEKCV+5) + l : POKE54273, I*© = NEXT : POK 
E53275 , 0 

230 I FNL as 3THEN23000 

231 FOR1=1TO500:NEXT 

232 

233 REM FLIPPERS DOWN COLLISION 

234 

235 I FQ»5ORQ=»6THENPOKE54290 , ©5 : POKE54287 
- 25 

250 IRC Q=50RQ=6> RNDREEK C 2040 > *■ 192THENDV* 
—DV+ 1 = V=V-*-2a*6DV : POKE53253, V 

2©0 IRC Q05RNDQ06 > ORREEK C 2040 > <> 1 94THEN 

POKE54290 , 0 - GOTO20 

267 

26© REM FLIPPERS UP COLLISION 

26© : 

270 IRX>110THEN350 

280 T = TRNC DX7C DV+1E—3 > ? s L=3QRC DX*DX+DV*D 
V >m&m C 50— C 1 15—X > >/30 : IRLC3THENL=3 
290 T“ 1 1 #ir/ 8 + C 1 05—X ? 7250+RND C 8 ) X© 

300 DX“COS CT) 9*6L = DV=S INCT) *L 

305 IRflBSC DX > >10THENDX=1 0 #SGNC DX > 

306 I RRES C DV > > 1 0THENDV* 1 0#SGN C DV ? 

307 X®X+2#DX : V=V+2*DV : POKE53252, X : ROKE53 
253 , V 

308 OOTO3S0 

350 T»TRNC DXX C DV+ 1 E —3 > > = L=SQR C DX^DX + DV*D 
V)#2#C201-X)720:IRLC3THENL«3 

360 T« 1 5i*irX©— C 38— C 2 1 1 —X ))/l ©O—RND C © > X© 

370 DX®COSCT)*L:DV=SINCT)*L 

37" 1 I RRBS C DX > > 1 0THENDX= 1 0#SGN C DX > 

372 IRRBS C DV > >10THENDV®10*SCNC DV > 

373 X=X+2*DX * V=V+234(DV : ROKE53252 , X : ROKE53 
253 , V 

380 POKE54290, 0 : GOTO20 

9997 

©©©© REM LEFT RLIRRER C DOWN) 

©©9© 

10000 DRTR 0 , 0 > 0 , 0 > 0 , 0 , 0 > 0 , 0 

10001 DRTR 0,0,0,0,0,0, 0,0,0 

10002 DRTR 0,0, 0,0,0,0,0,0,0 

10003 DRTR 0,0, 0,0, 0,0, 0,0,0 

1 0004 DRTR 0 ji 0 ji 0^ 1 27 , 255 , 1 ©2 , 255 , 255 , 24© 

10005 DRTR 255 , 255 , 254 , 255 , 255 , 255 , 255 , 2 

55.254 

10006 DRTR 255 , 255,24© , 127, 255 , 1©2 ,0,0,0 
1 0007 

1000© REM RIGHT RLIRRER CDOWN) 

1000 © 

10010 Dfllfl 0,0,0,0,0,0,0,0,0 

10011 DRTR 0,0, 0,0, 0,0, 0,0,0 

10012 DRTR 0 > 0 , 0 , 0 , 0 , 0 , 0 a* 0 , 0 

10013 DRTR 0 , 0 , 0 , 0 , 0 , 0 , 0 ...» 0 , 0 

1 00 1 4 DRTR 0 > 0 v 0 , 3 > 255 , 254,31,255 , 255 

1 00 1 5 DRTR 1 27 , 255 , 255 , 255 , 255 , 255 , 1 27" , 2 

55.255 

10016 DRTR 31,255 , 255 , 3 , 255 , 254 ,0,0,0 
10017" 

1001© REM LEFT RLIRRER CUR) 

1001 © 

1 0020 DRTR 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 240 

10021 DRTR 0,3, 240 , 0 , 15, 240,0,31,224 

10022 DRTR 0 , 63 , 224 >0,127, 1 ©2, 0 , 255, 1©2 
1 0023 DRTR 1,255 , 1 28 , 3 , 255 , 0 , 7" , 254 , 0 

10024 DRTR 15,252,0,31,24©,0,©3,240,© 

10025 DRTR 127,224,0,127,192,0,127,128,0 

10026 DRTR 63,0,0,30,0,0,0,0,0 
10027" 

10028 REM RIGHT RLIRRER CUR) 

1002 © 

10030 DRTR 0,0,0,0,0,0,15,128,0 
1 003 1 DRTR 15,1 ©2, 0 , 15, 240 , 0 , 7" , 24© , 0 
1 0032 DRTR 7" , 252 ,0,3, 254 >0,3, 255 , 0 

10033 DRTR 1,255, 128,0, 255, 192, 0 , 127", 224 

10034 DRTR 0,63,240,0,31,24©,0,15,252 
1 0035 DRTR 0,7", 254 ,0,3, 254,0,1,254 
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10036 DflTR 0 * 0 * 232 ^0.0. 120* 0 * © * © 

10037 

10030 REM BALL 

10033 

10040 DflTR 0,0,0,7, 132 * 0* 15, 224 * 0 

10041 DATA 31,240,0,31,240,0,31,240,0 

10042 DATA 15,224,0,7,132,0,0,0,0 

10043 DATA 0*0*0*0*0*0*0*0*0 
1 0044 DATA O*0*@*0*0*0*0*0*0 

10045 DflTR 0,0 * 0 * 0 * 0 * 0 * 0 * 0 * 0 

10046 DATA 0 * 0i * 0 * 0 * 0 ,p 0 * 0 * 0 * 

10047 

10043 REM 1©0 POINTS 

10043 

10050 DATA 199,135,123,204,204,132,204,2 
04 * 132 

10051 DATA 204 * 204 * 132,204 * 204 * 132 * 204 * 2 
04,132 

10052 DATA 199,135,128,0,0,0,0,0,0 
1 0053 DATA 0 * 0 ji 0 * 0 * 0 * 0 * 0 * 0 * 0 

10054 DATA 0,0,0,0,0,0,0,0,0 

10055 DATA 0 * 0 * 0 * £3 * 0 * 0 * 0 ,* 0 ,• 0 

10056 DATA 0*0*0*0*0*0*0.,0*0 

10057 

10056 REM 503 POINTS 

10053 • 

10060 DflTR 63, 30, 30 * 43,51,51,43,51,51 

10061 DRTR 62,51,51,3,51,51,3,51,51 

10062 DRTR 62 * 30 * 30 *@*©*©*0*0*0 

10063 DRTR 0 * 0 * 0 j> 0 ji 0 * 0 * 0 * 0 * 0 

10064 DRTR 0 * 0 * 0 * 0 „ 0 * 0 » ^ 0 * 0 

10065 DRTR @*@*@*@*@*0*0*@*@ 

10066 DRTR 0,0,0,0,0,0,0,0^0 

10067 

10063 REM SKULL 

10063 : 

1007© DRTR 0,126,0,3,255,192,14,126,112 
10©71 DRTR 15, 60 * 240,31,153 * 243,31,255 * 2 
43 

10072 DRTR 63 * 62 * 124 * 62 * 23 * 60 * 126 * 23 * 62 

10073 DRTR 127 * 62* 126*63 * 255 * 252,31,201 * 

10374 DRTR 15, 201 * 240 * 7*255* 224,6,219, 36 

1 0075 DRTR 6,0, 36 *7*1 ©3 * 224 * 3 * 255 * 1 32 

10076 DRTR 1 * 255 * 123 * 0 > 255 * @ * © * 126 * 0 

10077 

10073 REM GUTTER 

10073 : 

10030 DRTR 255* 255* 255 * 255 * 255 * 255 * @ * @ * @ 

10031 DRTR 0 * 0 * 0 ji 0 * 0 ji 0 * 0 * 0 js 0 

10032 DRTR 0 * 0,0 , 0 * 0 * 0,0 * 0 * 0 

10033 DRTR 0,0,0,0,0,0,0,0,0 

10034 DRTR 0 ,e, 0 , 0 , 0 , 0 , 0 ,Q ,0 

10035 DRTR ©*©*©*©*@*©*©*0*0 

10036 DRTR 0,0,0,0,0,0,0,0,0 

13337 : 

13333 REM SPRITE INITIALIZATION 

13333 : 

20000 POKE53281*0: POKE532S© * 3 : PRINT■■n" 
20010 V=53248:RESTORE : PORI=0TO8 : FORJ*0TO 

62 : RERDQ : PpKE 1 2238+ I 3»«64+J , Q : NEXT = NEXT 
2002© POKEV+39,7:POKEV+40,7:POKEV+41,10: 
POKEV+42, 14 : POKEV + 43, 14 = POKEV+44, 3 
20030 POKEV+45, 1 : POKEV+46* 1© 

20040 POKE2040, 132 = POKE2041 * 133 = POKE2042 
,196:POKE2043,137=POKE2044,137 

20050 POKE2045* 133 = POKE2046, 133 = POKE2047 
* 200 

20070 POKEV+29, 255 = POKEV+23, 124 : PQKEV+16 
* 0 

20030 POKEV * 12© : FOKEV+2* 200 = POKEV+1*210 = 
POKEV+3*210 

2003© POKEV+12*162 = POKEV+13*14© 

20 1 ©0 POKEV+ 1 4 * 161 = POKEV-*- 1 5 * 232 

2©110 POKEV + 6* 120 = POKEV+8*215 = POKEV+9* 13 

0 = POKEV+7* 130 

2© 1 20 POKEV-*-10*1 53 = POKEV-*-1 1 * 70 

2©125 PORI=VTOV+16STEP2 = IPPEEK< I > >40THEN 
POKEI * PEEK < I >—40 
20127 NEXT 
20130 RETURN 

20337 

20338 REM BACKGROUND INITIALIZATION 

20333 

2 1 000 POKE54273 * RND C8>«1 04-50 

2 1 005 POR I =0TO24 = FORJ=3 1 T039 = POKE 1 ©24-*-1 
4©-*- JT* 16© = POKE552964-1 #404-J * 14 = NEXT : NEXT 
2101© PORI=0TO24:FORJ=0TO39STEP39:POKE10 
24-*-19*640-*-JT * 160 = POKE552964-1 #404-J , 6 = NEXT = NE 
XT 

21015 POKE54273 * RND <3 > 9*61 04-40 

2 1 020 POR I —0TO24STEP24 : POR JT —0TO33 = POKE 1 0 
244-1 9*640-*-J * 16© : POKE55236-*-1 9*640-4-jr * 6 = NEXT = NE 


Yoricks 

Revenge 
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21@25 POKE54273RND< S >m 10+30 

21©3@ FOR1=1TD23:FORJ=1TO30STEP29:POKE1@ 
24+I*40+J, 160 : POKES3236+ X #40+J * 4 : NEXT = NE 
XT 

2 1 @35 POKE54273 RND <8)#10+20 

2 1 0-4© FOR 1 = 1 T023STEP22 = FQRJ= 1 TO30 : POKE 1 0 
24+I#4@+J,160:POKE5S236+I#40+J j 4:NEXT:NE 
XT 

210-45 POKE54273, RND<8>#10+10 

2 1 @5@ PR I NT >a »i>»>i»»»»i»»»»»»»»i>»»»| 

HliHli|a[KDQSC0RE»IBBaHI00©©0SnDSaBHaBIBRLLS 11 i 

21060 PR I NT " KIBBB3 11 

21070 PR I NT " HT" 

2i@3@ PRiHT">iifai a a r» 

21030 PRIHT"li»MB^" 

21100 pr i nt ■■ the c 27 :> ^ia 

2 1 1 1 © PR I NTTRB < 23 > " ^3* " 

2112© PRINTTRB<29> ,, T' 

211 3 © pr i nt 11 

211 -4© PR I NT " WIST**" 

2115© PRINT"li*ia 
21160 PR I NT "WISH 
21170 PR I NT " 

211 3© PR I NTTRB < 2S> > " aP^" 

211 3© PR I NTTRB < 23 > " " 

212@@ PRINTTRB<27)"Br 
2121© PR I NT " ^XOSSKOWSi" 

2122© PRINTTRBOVSPT 

2123© PRINTTRBOV'k^a HF - " 

21300 RETURN 
21337 

21333 REM SOUND INITIALIZATION 

21333 

22@@@ FORI=54272T034236 : POKEI ^ 0 : NEXT 
22010 POKE54236, 15 = POKE54277,36 : POKE5427 

© j- 2-4© : POKE54276, 17 

2202© POKE54234 * 6-4 : POKE54285. 123 : POKE542 

83, © : POKE54280.. 15 - POKE5428 1 , 233 s POKE5428 
2 j> 233 

22@3@ POKE5423 1 .. 64 : POKE54232, 123 : POKE542 
30, © = POKE54287,55 : POKES4288, 33 -POKE34288 
- 233 

22@4@ RETURN 
22337 = 

22333 REM END OP ORME 

22333 

23@©@ POKE54276, 33 : POKE54283, 17 : POKE5-423 

0,65 

23005 FORI-1TO100STEP25 
23010 FORJ=1©0TO1STEP—25 
23@2@ FORK-1TO10 

23@3@ POKE54273,<I+J+K>AND255 

23@4@ POKE54280,CI+J-K>RND255 

23©5@ POKE542S7 ^ RES < -J — I > +K 
23@6@ NEXT = NEXT : NEXT 
23065 I FF =1THEHRETURN 
23070 POKE53281,10:POKE54236,0 

23@3@ IFPEEK< 137 >=64THENPOKEV+45^ RND < © > W 
16 : GOTO23030 

23@3@ POKE532S 1 ^ © - PR I NT " 71" - GOTO 1 4 
23337 - 

2333© REM PRINT TITLE 

23333 

24000 POKE532©1,0 

24@@5 PR I NT " : PR I NTTRB U2>" afVOR I 

OK ^ S REVENGE " PR I NT : PR I NT = PR I NT 
240 1 0 PR I NTTRB <13?" !«BV " : PR I NT : PR I NT 
24020 PR I NTTRB < 1 2 > " all GOR TULCH I NSKV ** = PR I 
NT:PRINT=PRINT=PRINT 

24@3@ PRINTTRB < 6 > "m< C > 1334 FANFARE HOUS 

E ^ INC- " = FOR1 = 1TO5000 = NEXT = RETURN 


Yoricks 

Revenge 

Program 





Space Crash 

Charles Mott, Jr. 


REN 

REN 

*€:+= 

& 



REN 

& 


EV 

REN 


<C> 

1 98 

REN 

* 

BOX 

3 U fc< 

REN 

*^^:**^ e+e;*: 34 * 34 *: 


SPACE CRASH ** 

CHARLES MOTT, JR. =+= 

4 FHNFRRE HOUSE!.. INC. -= 4 e 

2 :: ^ 7^V'233; ^ 


REN INITIALISATION 

30 PR I NT " rsca” j: : r» I MA < 40 5 .. £: 40 > .. C 40 > 

_ F^S < 1 > =838 : FSCii> =o3y : F'S < 3 > =f=; 4 Ci : 131 = 4 = 1 pj : o 
U«i£4W : LL«0 = I N= 1344 : NR = 5 

50 V=5o24o : BR=532oU - BK-53£81 : sr:=10'‘4 : CL = 
552:^6 : 30=54272 * *~ 

SO flfl$=" ! : fill$=" 

•" O :^P$=s " **S6B>|ii3^5SBi3SBBSa^nnnsBifeB9iB^aBftiBIB||a■■ BViSR bk jBBB>iW>B»i Wi^Mi| 

(BBSttSl" 

eo vp$=" ■ - 

^'r 1 _ Wm 1 > —S3 : NM <£ > =38 : NR •:! 3 > =43 : wp| < . 4 . > =47 
lOO FORT=30IOSO+24 : FOKET O = NEXT 

1 PUKESO + 24 .• 15 : PUKESO + 5 .• 43 ; POKESO +1 . IO 

‘ f”y K S^ C, ' H:=: - ltJ : ^KESU + 12,8 S< ■ POKESO+13, IO 
1 1PUKESU+ 15, 1 © : POKE SO-*- 1 S" ■ 42 
12 © POKESO + 20 , 15 

1 SO PUKESO+I 1 .. 33 : POKESO+1 1.32 
1 49 EL=32 - SR = 0 : ON$= ■» ^SKX> " 

150 GOSUB1160 

1 1 . SJ r* _ P0KE2040- 13 : POKEV, O = POKEV+1 ..• 155 - POKE 
v -*-S^ .. 1 : POKEV+2 1 .. 1 : POKEV-*- 16, O 


115 F 

120 F 

130 F 

149 3 

150 1 : 

190 F 

V+39 , 


>0-*- 11.. 32 


155 = POKE 


f TS-r^!l‘S T S^i3iT9g4S : REHDH = F OKET, R NEXT = FOR 
I —OTU48 ■ POKE847+I O NEXT 
220 POKE966,233 

250 POKE52, 48 : POKE56 .- 48 : Bfl=l 4336 : Sfl =5633 

260 POKESA, C PEEK <. £:A > AND254 > 

2TO POKE1 REEK < 1 >AND251 

2S© FuR I — 0TO 1 ,S© : FORJ=0TO7 = POKEBA+ I =+=©-*-._T . R 
EEK<V+I#S+J> : NEXT J .■ I 

f uKE 1 -■ PEEK < 1 > Cl R 4 : POKESfl .. REEK < SR > OR 1 
300 F'OKEV+24 .• < PEEK < V + 24 > RNJD240 > OR 1 4 
31 O RERIiR : I Ffl=— 1 THEM330 

1 ~0TO7 : REflBE : POKEBA+R*S+I .. E: : NEXT : 

330~ POKE967. 255 

1 _FORT=1T02558TEP3 : POKESO+4..16-POKESO+ 
4^ 1 - PuKEV+4, 1 : POKEV, T : GOSUB370 : NEXT 

F UKEBK .• 4 : RR I NT " =aC53” : POKEEK .. © : 1 _|= 1 53 

334 U08UE9 1 O:U0SUE680=FOR1=1TONR:GOSUE78 


E=NEXT: 


POKESO+ 

NEXT 

IJ=163 

GOSUB78 


: FG =0 : POKESO + 4 .• IF 


332 POKEEK .. 4 = RR I NT " ==aCjI” : POKEEK .. O : U= l 63 

334 UOSUE910:GOSUEbSO=FOR1=1TONR:GOSUB7S 
© : NEXT 

336 GOTO 51O 
340 : 

35W REM SRIN SAUCER 

360 : 

„ POKESO + 4 .« IS - IFFGTHENPOKEFSC 1 > .. GR : ROF 
EFb'-2) , GR ; POKEFS<3> .• G M : FG = 0 : P0KES:0 + 4 , 1 7' 
RETURN 

3SO POKESO + 4 , 17: POKEFS < 1 > , RG : ROKEFS »: 2 5 ^ F 
G : POKEFs<3) .. RG - FG =1 : RETURN 
430 : 

430 REN NRIN LOOP 

500 : 

5 10 GETA$ ; POKE30 + 4, IS : POKESO+4, 17 : GOSIJE: 
ru-1=1+1:IFI>NATHENI=1 

520 I Ffi$= ri” THENU=U — 3 : I FUC 5 1 THENU = 5 1 

530 I FR$= " SP” THENU=U+8 : I FU>255THENU=255 

540 I Ffl$= - HI” THENVE=VE+8 : I F VE>255THEH VE = c 


Space 
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Space 
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550 

555 

560 

578 

630 

640 

650 

660 

66 


I F R$= ” 11” THEHVE=VE-S : I FVEC24THEHVE-24 
GOSUBS50 - OOSUE370 : POKESO+ 1 -■ 1*2 
I F < PEEK V + 3 1 > AND 1 = 1 > THEHGOSUB740 
POKEV, VE = POKEV+1 .. U = GOTO510 


REM 


SAUCER CRASH 


POKESO+18, 123 : P0KESO+ IS.* 

F0RT=UTO222STEPS = PUKEV+391 © ■ POKEV+1 
.. T - GOSUB709 : POKEV+39, 1 = NEXT = POKEV+1 
.S7© FORT= 1 TO 1 5 : POKEV + 39 -• 7 : GOSUB709 : POKEV 
+ 39,2 = GOSUE370 : NEXT - GOSUE7 10 

6S0 RESTORE : FORT=0TO 1 -4 = REACH - POKE832+T -• R 
: NEXT 

690 POKE2040.. 13 : PQKEV, 255 : POKEV+1 -• 155 : PO 
KEV+33, 1 • POKEV + 2 1 -■ 1 : POKEV+ 16, © 

700 VE-255 = U — 1 55 : XG-PEEK < V-*-3 1 > = RE TURN 
7”O3 FORV = 0TO 1 -4 : POKE832+ V .. RMD < 1 > < 255- 1 > 

1 = NEXT - RETURN 

710 RR I NTLEFT$ < VP$ 9 + MO > LEFT & < XP$ -• 3-4 > UN$ 
: MO«MO+l ■ I FriO==5THENGOSUE680 : GOTO 1 300 

711 RETURN 


71 

7” 3 d 
30 
740 
7*-4 1 
750 
760 
770 
2 = GO 


REM SAUCER HIT ALIEN 

EK=0:FORHT=1TOHfl 

I FU>B < HT > — 1 6ANDUCB < HT > •+• 1 6THENEK«HT 
NEXT - IFEKTHENI=EK - G0T0770 
GOSUB709:G03UB660=RETURN 

POKE A < I > 33 : XG = PEEKCV+3 1 > : POKER < I . 

IJE780 : 8R=SR+ 1 O : GOSUB775 


773 POKESO+18,128:POKESO+18,128 : POKEV+31 
.. O = RETURN 

7 75 RR I NTLEFT$ < VP$ 3 > LEFT# < XP# 33 > " 77i'' MID 
#<STR$ < SR > .. 2 - S > - RETURN 

778 REM NEW ALIEN APPEARS 

780 RV= I NT >r. RND < 1 > * C 1 1 > -«-© > : RX= I NT < RND < 1 ;• # 
< 32 -+-0 > : POKES46 .• 4 

785 RR I NTLEFT# < VP# .. RV+ 1 > LEFT# C XR$ .• RX > HR^ 
: FORT= 1 TO 1 OO = NEXT - RR I NT il"" RJO^F 
30O E c: I =50+ < RV*8 > - C < I > = 24-*- < RX*W > 

SIO R < I > = < RV*40 > -h C SC+RX > = POKER C I > - MR ■:! 1 > 

330 RETURN 


REM 


RLIEN DESCENDS 
■ 32 R •: I ;■ —R I > +40 - I FREEK < R < I > 


334 
340 

S3© POKER I > . 

>032THEN880 

355 HC=flC+1=IFAC>4THENAC=1 

860 POKER I > ^ Wfl RC > : E < I > =B < I > +8 : RETURN 

330 I FREEK < R j? > > = 1 60THENS85 

SS3 ROKER a>, 33 = FORT=1TO1OO - NEXT : POKERC I 

> -• 32 : GGSUB780 = RETURN 

©35 BL=EL—1 : POKEIH+BL, 38 : GOSUB1 105 = IPEL- 
0THEN1300 

©SO R I > = R <: I > —40 : GO TO ©S3 
©S3 : 

899 REM PRINT GAME SCREEN 

900 : _ 

"3 10 POKEBR .• «S : FOR 1 — 1 1025 : F OR T — WTO 7 POKtSU 
+32+T + LL, 160 : NEXT = LL=LL+40 : NEXT 
32© PRINT"Sa M ; 

330 FORT =1TO20 • RRINT = NEXT 



T^~ 

JL. 


t^-t 


102© GR#= " fiST^T-e-T*- 

GT#= " BS—I-B-1— 

RRINTGR#=PRINTGT# 

PRINT" 3C3 

PRINT” ssca 

RR I NT ” S3C3 

jsa” 

RR I NTLEFT# < VP# ^ 3 > LEFT# C XR# -• 33 > " R1SOO 

RR I NTLEFT# ^ VP# ^ 5 > LEFT $ < XR# 33 > ” OO 

1©30 FORV—1T05 = PRINTLEFT#< VP#^ 8+V>LEFT#< 

XP#34 > " =K=> ■* : NEXT _ * 

1 035 PR I NTLEFT# < VP# .. 1 7 > LEFT# < XP# .. 33 > ” lilBL 

OCKS" _ _ . 

1100 PR I NTLEFT# < VR# , 18 > LEFT# < XR# -• 33 >"173 L 
EFT : ■’ 

1 1 05 RR I NTLEFT# < VR# 20 > LEFT# C XR^ -• 34 ;■ " 


1 1 07 RR I NTLEFT# C VR# -■ 
L . 

RETURN 

RR I NT 


1 120 
1 130 : 

114© REM 
1 150 


20 > LEFT# < XR# -• 


TITLE SCREEN 






Space Crash Program 137 


1 1 60 POKE53282 .. 2 : PR I NT *' ^ 

1 1 T© POKE5328 1 © : POKE53289. 3 = POKESC + 39. 1 

3©:POKE55335,© 

1 1 80 PR I HT " SsaFStPJ*' .: : FORT = 2103 = PR I NTTflB < T— 1 > 
" "TRBaSO" "TRBC40 — T> " " = NEXT 

113© PRIHTTflBCS) *' SUssg rsi ,TH rsi m rsi ST3 rsa rra rsa ra 

rsi rn> rsi rra rsi ms raj rra m =4 rsa-' 

1200 print" - sera na s® < space crr 

SH ! sra rra ra® -• 

1210 pr i NTTflB < 3 > ” sas* rsa rra rsa rra r=a rra rsa rra rsa ra 

rsa rra rsi rra rsa rra rsa rra rsi =4 rsa" 

1 220 FORT==3TO 1 STEP— 1 : PR X NTTflB < T— 1 > “ " TRB 

< 1 3 > " TAB <1 4© — T > ” " : NEXT 

123© PRINT’Tiaa 

1240 PRINT" sseS <C> 1984 FANFARE HODS 

E ^ IMG- SSSi 
1 23© RR I HT ” ca 

1260 PRINT" a® BV CHARLES MOTT.. 

JR. 3S) -=a" 

127© POKESC+339, 160 = POKECL+399^ 6 
123© RETURN 

123© : 

1231 REM END OF GAME 

1232 - 

1300 FORT**VETO©STER—1 : ROKE V -• T : OOSUB370 : R 

0KEV+ 1 .. I_i : _ 13 - NEXT 

1 3©4 PR I NT LEFT & < YP$ .. T > LEFT$ < XP$ -• 1 © > ’* =4 Si O 
RME OVER ■* 

1303 PR I NTLEFT$ < VP$ .. 3 > " asmeaiBBSI HIT ANY KEY 

TO F’LRV AGAIN ’* : POKE 1 33 .. 0 

1 3 1 © GETRT : I FR$= ” THEM 1 3 1 © 

1315 RUM 

1313 : 

1313 REM SPRITE DATA 

132© = 

1 33© DRTR © .. 233 .. © .. 253 .. 253 .- 253 24© .. 24© .. 24 

© j- 235 -• 233 .• 233 .■ © 255 .. © 

135© : 

133© REM CHARACTER DRTR 

137© : 

1^80 DRTR ©©© .. 235 .■ 253.- 255.- 2335 253.. 255.. 23 

3 _■ 253 

13©© DHTR 030. 046. 127. 239. 235.. 063 .. 247 . IS* 

1 .. 233 

1 5 1 © DMTR ©3 1 .. 243 .. 243 1 73 .. 254 .-11 © .. 254 ..2 1 

4 . 1 24 

152© DRTR ©33.. ©©© .. 1 ©2 .. ©3©.- 233.- ©3©.. 1 ©2 . ©© 
© ^ ©0© 

1 33© DRTR ©33 .. 1 23 ©3© .. 1 23 255 .. 2© 1 .. 235 .. 1 © 

2 . 1 35 

154© DRTR ©33.. ©33.. ©3©.- 123.. 255 . 2© 1 .- 255.. 1© 

2 -• 0t>0 

1 33© DRTR ©33 .. ©34 .. ©03 .. 1 27 .. ©33 .- ©42 .- ©2© .. ©2 

© .. ©54 

1 57© DRTR ©43 .. 1 33 .. ©4© .. 016 .. ©33 235 1 52: ^ 23 

5 . 1 ©2 

1 53© DRTR 047 .. ©0© .. ©©© .. © 1 i=. .. ©33 .. 253 2 12".- 25 

5. 1 ©2 

1 34© DRTR ©3© .. ©15. ©3 1 .• ©3 1 .• 1 15. ©32: .• ©3 1 .. © 1 
5 .■ ©©0 

1 33© DRTR ©3 1 .. 235 .. 255 -■ ©5 1 .. ©5 1 .. 255 • 255.23 
5 .• ©0© 

133© DRTH ©32.* 24©.. 242:.- ©3©.« ©32.. 252.- 242: > 24 

© .. ©0© 

137© DRTR Q — 1 
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The Blobbis 


Frank Mikulastik 


0 REM 

1 REM m THE BLOBBIS *E 

12. REM * BV FRflNK MIKULASTIK m 

3 REM * <C> 1334 FflHFHRE HOUSE/ INC- *e 

4 REM 2+E BOX 3062 HOUSTON / TX 77253 

5 REM 

6 = 

7 REM INITIALIZATION 

3 : 


10 POKE52/ 160 : POKE56/ 16© = SM=32768 : CM = 552 
S»6 : V«53248 : S 1 =54272 : M 1 = 1 © 1 6+SM 
13 PR 1 NT " Z3" : GOSUB5300 : OOSUB60O0 
2© POKE56578^ REEK C 56578> OR3 

22 POKE56576/ < PEEK < 56576)AND252)OR1 

24 POKE53272/■ < REEK < 53272 > AND15?OR© 

26 FOKE643/123 

27 F9=0 : GOSUB50O0 : F3= 1 

100 FORI=20#64TO53#64STEP64 
102 GOSUB6010 

104 FORJ=0T063 = READA : POKE1+J + SM/ R : NEXT 
106 NEXT 

11© POKEV+2 X *1? ROKEM 1/16 = ROKEM 1 ■+■ 1 ^ 20 : ROK 
EV^SS * 255 

120 ROKEV+29/3:POKEV+23/3:ROKEV+37/1sROK 
EV+38/10:ROKEV+39/6:POKEV+40/11 
125 ROKEV+41^4 

14© DIM SI<2/20)/S2<20>/S3<20?/S4<20> 

15© S1<1/ 1 > =43 : S1 < 1 / 2 > *50 

155 SK2, 1 > =47 : SK2 / 2? =43 

157 Bl®2 

16© S2< 1 >=20 : S2< 2 > =21 = 32< 3 > =22 : S2< 4 > =23 
1 65 B2!*— 4 

170 S3 < 1 > =27 : S3 < 2 > =23 = S3 < 3 > =23 : S3 C4?=23 : 

S3 < 5 > =27 : S3 < 6 >=3© : S3<7>=31 - S3 C8?=3© 

175 B3=S 

13© S4< 1> =37 : 34< 2 >=33 • 34C 3 > =33 : 84<4 >=4© : 
S4< 5 > =33 s 34C6>=33 
135 B4=6 

13© D2 < 1 >=2© = D2 < 2 > =24 = D2 < 3 > =25 : D2 < 4 > =26 = 
D2 < 5 > =25 : D2 < 6 >=24 
135 02=6 

200 D3 Cl?=27 = D3 C2?=23 = D3 C3?=23 : D3 C 4 > =23 : 
D3 < 5 >=27 : D3C6?=3© = D3 C7?=31 : D3 C8?=3© 

205 03=3 

210 D4C1>=37=D4C2?=41:D4<3>=42:D4<4>=43= 
D4 < 5 > =40 : D4 C6?=44 : D4 C7?=45 : D4 C8?=46 
215 04=3 

220 S5< 1 >=53 : 35< 2 > =52 = S5 C3?=51 = 35< 4 ? =52 

225 B5=4 

230 GOSUB5000 

40© GOSUB510© 

405 OOSUB30© 

41© GOSUB700 

430 K=*=0JWS=2 : POKEV+40.. 1 1 : R2 = 0 : R3=© : P4=0 : 

F«8 = ROK^V+30/ 0 : POKEV+31 ^ 0 

430 


431 REM MRIN LOOP — MOT SHOOTING 

50© GOSUB1000 

502 ONWSGOSUE 1 ©0© > 400© /41 0© .. 420© 

505 K**K-** 1 

506 IFF=2THENGOSUB640©=GOSUB5200:GOTO400 
507 s * I FF= 1 THENGOSUB6030 = GOSUB520© : GOTO400 
510 GOSUB2100 

515 K«K+1:IFK>5THENK=0:GOTO530 

520 GOSUB1000 

522 ONWSGOSUE 1 000 /. 400© ,41 ©0 ^ 420© 


The 
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Blobbis 
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INITIRLIZE SPRITES 


555 IFF=1THENGOSUB6030=GOSUB5200=GOTO400 

556 IFF=2THENGQSUE6400:GOSUB5200 : GOTO400 
56@ GGSUB2000 

590 GOT0500 

690 

691 REM 

ggig 

700 RX=0:POKEV+16/0 

710 POKEV> 100 : POKEV+1 - 200 = POKEV + 2/ 0 : POKE 
V-*-3^ 54 

720 X= 1 00 = D= 1 = N= 1 
730 BX=150:BD=1•BS=20 

740 F=0:POKEV+31/0 

790 RETURN 
7- S>5 : 

796 REM 
7=" SIT” 

000 PR I NT" ^3" = PDKE5328 1 ^ 0 : POKE53280 , 

005 P — 240 = T1 — 160 
010 FORI-PTOP—1+5*40 
@30 GOSUB6040 

@50 POKESM+I / 160 = POKECM+I / 2 
S60 NEXT 


BUILD FORCE FIELD 


@61 
@62 REM 
@63 


BUILD FLOOR 

FOR1=1984TO2023=POKEI+54272^4 : POKEI+ 
SM— 1 @24 ji 160 = NEXT 

870 PR I NT " BU 

LLETS 0 "* - BL=0 

000 RETURN 
000 

001 REM PLRVER MOVEMENT DRIVER 

002 

1000 JV=PEEK<56320> 

1001 IFJV=127THEH1090 
1010 FR=JVflND16 

1020 JV*= 1 5— C JVRND 15> 

1030 IFFRO16THENGOSUB6020:GOTO3000 
1040 I F JV«40RJV SS 50RJV=6THEND - 1 : T=X—0 : GOT 
011 00 

1050 IFJV=8ORJV=0ORJV~10THEND=2 : T=X+9 : GO 
TO1100 

1 07-0 N 1 = 1 : POKEM 1 / SI CD / N1 > 

1000 RETURN 
100 1 

1002 REM MOVE PLRVER 

1003 

110© N1—N1+1=IFN1>E1THENN1=1 

1110 IF < T>308> OR TC12 > THENT=X : Nl = l 

1120 X=T = RX= CRXRHD254 ; 1 = I FT>255THENT=T — 25 

5 : RX®< RXOR1 > 

1 130 POKEM1/S1CD/N1) : POKEV+16/RX : POKEV ^ T 
1140 GOSUB6050 

1100 RETURN 
1000 

1001 REM 

1002 

2000 GOSUB6010 

2005 FORI=P+K#40—1TOP+< K—1 >*40STEP~1 
2010 T2=PEEKCSM+I> 

2030 POKESM+I/T1 : T1=T2 
2040 NEXT 

2000 POKES1+4/0 : RETURN 

2001 

2002 REM 

2003 : 

2100 GOSUB601@ 

2 1 05 FOR I ==P-+ < K— 1 > *40TOP+K#40~ 1 
2110 T2=PEEKC SM+I > 

2130 POKESM+I/Tl : T1=T2 
2140 NEXT 
2 1 50 POKES 1 -+*4 -■ © 

2100 RETURN 
2000 

2001 REM 

2002 

300© T= 1 783+ I NT < < X-+-4 > /8 > = POKET+54272 .. 4 : P 
OKET/81^S3=70 

mMsmmmMmmmmmmmmmmv ; bl ; 

3005 Q=PEEK<V+31)=IF<QRND2>=2THENF=1:GOT 
03000 

30©6 IFF>0THEN3S90 

3010 POKET+SM-1@24 .. 32 = POKET+542722 = T = T — 
40=IFTC1024THEH3080 

3020 IFPEEK < T + SM—1024 > = 160THEN3080 
3@3@ S3=S3+1:GOSUB6060 

3040 POKET+54272.. 4 : POKET+SM-1024 ^ ©1 

3043 GOSUB 601© 

3044 FORI2=1TO100:NEXT 

3050 ONWSGOSUB1000 .. 4000. 4 100 .. 4200 
3070 GOTO3005 


MOVE ROW TO THE RIGHT 


MOVE ROW TO THE LEFT 


MRIN LOOP — SHOOTING 
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3060 POKET+SM- 

3060 RETURN 

3061 

REM 


1024,32 


MOVE HUNCHBRCK BLOBBIS 


BUG—EYED BLOBBIS 


3062 

3063 

4000 IE < P2>150 > RND < P2<157> THENGOSUB6300 
4005 IF<F1 = 1> RND<F1=2 > THEHGOTO4090 
4010 P2=P2+6:IFP2>320THENP2=0:WS=3:POKEV 

-*-40 , 4 = GOTG4 1 0© 

4030 IFP2>255THENRX= < RXQR2 ? = POKEV+16, RX : 
POKEV+2,P2—255 : GOTO4050 

4 ® 40 RX=RXflND<255~2> : POKEV+16,RX:PGKEV+2 

4050 N2=N2+1:IFN2>B2THEHN2-1 

406© PQKEM1 -»- 1 , 32 < N2 > 

4060 RETURN 

4061 

4062 REM MOVE 

4063 

1 R < P3> 1 50 ) RND C P3C1 57 ) THENGOSUB61 @0 
4 l? 10 P3 =P3+6 : I FP3>320THENP3=0 : NS=4 : POKEV 

+40 a 7 = GOTO4200 

2*30, 1 E; r 3>255THENRX— < RXOR2 > : POKEV+16, RX = 
POKEV+2,P3-255-G0T04150 

RX=RXRND<255—2!>:POKEV+16,RX=POKEV+2 

, P3 

4150 N3=N3+1:IFN3>B3THENN3=1 

4 1 60 ROKEM 1 -*- 1 , S3 < N3 > 

4160 RETURN 

4161 

■JJSJS2 REM MOVE FLASHING BLOBBIS 

4 1 63 

"J 1 R * F > 4> 1 5© > RND C P4< 1 57 > THENGOSUE6200 
4 ?10 P4=P4+6:IFP4>320THENP4=0:WS=2:POKEV 

+ 40' 1 1 : POKE53281 , 0 : POKE53280, 5 : GOTO4000 
1 Fp 4>255THENRX= < RXOR2 > : POKEV-*- 16, RX - 
POKEV+2, P4—255 = GOTO4250 

4240 RX SS RXRND <. 255—2 > : POKEV+16, RX • POKEV + 2 
4250 W4 a N4+1:IFN4>B4THENN4=1 

3iS® tI ?® K EMl + l * S4CN4) : POKE532S1 , N4 = POKE53 

260 j > N4+" 1 

4260 RETURN 


4661 

4662 REM 


4663 

5000 

5005 

5007 


PRINT TITLE SCREEN 


IFF9=1THEN5036 

C R i HT,, " raKra " : POKE53231 , 5 : POKE53230, © 
GOSUB6000 


5010 

PRINT" 

Si 

a 

Si 

a 

Si 

a 

SI 

501 1 

PRINT" 


si a 

Si 

a 

Si 

a 

si a** 

5012 

PRINT" 


si a 

Si 

a 

Si 

a 

SI B" 

5013 

PRINT" 


si a 

Si 


a 

SI 


5014 

PRINT" 


si a 

Si 

a 

Si 

a 

si a** 

5015 

PRINT 1 * 


s a 

Si 

a 

Si 

a 

Si B" 

5016 

PRINT** 


si a 

Si 


Si 

a 

SI 

5017 

PR I NT ** WBBd* 

■ 






5018 

PRINT" 

Si 


Si 

a 

sir- 

~B9 Si 

Si 

Si 


a sir- 





5016 

PRINT" 

SI 

a si a 

si a 


si 

■F 

91 SS) 

a a a 

Si 

a 

SI 

a 

Si 


•^si a** 

5020 

PRINT" 

Si 

a Si BF 

si a 


SI 

a si 

a si i 

nr- si a 

Si 

HPT- 

Si 

a 

SI 


5021 

PRINT** 

Si 

* -a 

Si 

a 

Si 

a 

si a 

■^Hi 

si 


si a 

^isi ai** 



5022 

PRINT " 

Si 

a ^si 

a 

si a 


Si 

a si 

a -9 

anas 

^si a 

Si 

a 



a a** 

5023 

PRINT" 

Si 

a si 

a 

si a 


Si 

a si 

m 

a ■ a b 


si a 

Si 


Si 

a 

si a** 

5024 

PRINT" 

Si 

a sr 

a 

si a 


Si 


SB SIF^ HB Si SB 

0 

ft 

3 F- a 

Si 

wm 

Si 

aa *v r a** 

5025 

PRINT" 

Si 


SI 

a 

^Si 

2SI 

p m 

■F Si 


a ^si 

gF" 





5026 PRINT* 
T I K ' 


»nBV FRANK MIKULRS 


5027 PR I NT " 

rai<C> 1664 PRNPRRE HOUSE, INC. •' 

5030 IFF6=0THENRETURN 

5035 GOSUB5300 

5036 POKE53275, 1 : POKEV-*-1,6© = N= 1 = POKEM1 , S 
1 C2,N > : POKEV+2, 2© = POKEV+3, 6© 

5040 POKEV+16, 2 = FORX=0TO255STEP8 

5043 GOSUB605© 

5044 N==N-+-1 = I FN>B 1 THENN= 1 

5046 POKEV, X = POKEM1,81<2,N> 

5047 FORK*0TO100'NEXT 

5048 IFX>230THEN5060 
5050 NEXT 

5070 UV=FREC1) 

5060 GOSUB6000 : POKE53275 , © = POKEV-*- 1 , © : ROK 


EV+3 

5061 

5062 


RETURN 
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5093 REM 
509-4 

5100 PRINT" 
5102 POKEV+ 
5105 PRINT" 

5110 PRINT" 
VOU TO 
5115 PRINT" 
ROE FIELD 
5120 PRINT" 
? 

5125 PRINT" 

5130 PRINT" 
ILL VOU 
5135 PRINT' 
ED BLOBSIS 
514-0 PRINT’ 
THE FORCE 
51-45 PRINT’ 
MILL TRV 
5150 PRINT* 


PRINT INSTRUCTION SCREEN 

; : POKE5328 1 , 12 = POKE53280. 6 
1^0 POKEV+3 O 

sa 


SSI 


HOW MRNV SHOTS WILL IT TAKE 
BREAK THROUGH THE MOVING PO 

FIND HIT ONE OP THE BLOBBIS 

i 

THE HUNCHBACK BLOBBIS CRN K 
WITH HIS PULSAR. THE BUG—EV 
WILL REPRIR THE TOP ROWS OP 
FIELD. THE FLASHING BLOBBIS 
TO CONFUSE VOU. 
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5151 PRINT’ 

5155 PRINT* 

O START 
5160 POKEM1, 


PRESS THE PIRE BUTTON T 

. 20 


SK2, 1 > : POKEV * 150 = POKEVh 
S : N«16 : WS=2 : POKEV + 2,0 = POKEV+3, 0 

5162 N®N+1:IPN>B1THENN—1 

5163 GOSUB6050 = FORS3=1TO200 = NEXT 

5164 POKEM1,SI C2,N> = IF<PEEK C56320 > RND16 > 
"16THEN5162 

5170 POKEV+1,0 
GOSUB6000 
RETURN 

REM GRME OVER 


5175 

§ 180 
192 
5193 
5200 
5210 
5220 
5280 
5285 
5290 
5300 
5310 
5320 
5330 
5340 


15:POKE53280,© 

HM>aa»a»p»iQRMEiii 


POKE53281 
PR I NT " 

GOSUB6080 

IP < PEEK < 56320>RND16) 

POKEV+39,6 

RETURN 


MOVER ’’ . 


=16THENGOTO52S0 


REM 


INITIALISE SOUND 


POR I SS 54272T054296 : POKE I ^ 0 = NEXT 
POKE54236, 15 = POKE54277, 96 = POKE54278 
,240=POKE5427S,33 

5350 POKE54284, 64 : POKE54285, 128 : POKE5428 

3^0 = POKE54280, 15 = POKE54281 ^ 233 = POKE54282 
^ 233 

5360 POKE54291 64 = POKE54232, 128 = POKE5429 

0,0 : POKE54287, 55 = POKE54288, 33 - POKE54289, 
233 

5370 RETURN 

5991 

5992 REM SCREEN CHANGE SOUND 

5993 : 

6000 POKES1+24, 15 : POKES1+5, 15 = POKES1+6, 1 
5 = POKES1+4,0 = POKES1+4,33 

6002 POR 1 = 1 TO200 = POKES 1 - I = POKES1 + 1 I : HEX 
T 

6003 POKES1+4,, 0 

6004 RETURN 

6007 

6008 REM BLOBBIS MOVEMENT SOUND 

6009 : 

60 1 0 POKES 1 -1-4 .. © : POKES 1 +24 , 15: POKES 1 h-5 , 15 
= POKES 1 -«-6 .. 15 = POKES 1 +4 .. 17 

6© 1 2 S2= I NT < RND < 0 > m 1 ©-+-1 © > : POKES 1 S2 = POKE 

S 1 +■ 1 , S2 
6013 RETURN 
6017" 

6018 REM 
60 19 

6020 FORS2= 

6022 POKES1 
9 : POKES1+5, 

6023 POKES1 

6024 NEXT 

6025 POKES1 

6026 RETURN 

6027 : 

6028 REM 

6029 

6030 POKES1 
5POKES 1 +4 .. 

6031 PORS2= 

6032 S3=S2# 

31+1..S3 

6033 FORS4* 


INITIAL BULLET SOUND 
1 5TO0STEF:— 1 v 

+24, 15 : POKES1+4, © = POKES1+4, IS 
ISf : POKES1+6, 15 : POKES 1 ^ 32* 1 © 
-1-1 32* 1 0 

-»-4 .. 0 : POKES 1 +5 ^ © : POKES 1 +6 .. © 


R BLOBBIS 


+24 , 15 *• POKES 1-1-5 
0 : POKES1+4,129 
15TO0STEP—1 
1©:POKEV+40,32:POKE 

1TO100:NEXT 


HIT 

1 5 = POKES 1 h-6 , 


S3 = POKE 
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603-4 

6035 

6036 

6037 
6033 
6033 
6040 


NEXT 

POKES1+4,© 
RETURN 


REM 


FORCE FIELD SOUND 


POKES1+24*15:POKES1+5,15:POKES1 
5:POKES1+4,0:POKES1+4,123 

6042 POKES1 * I—P : POKES 1 + 1 * I—P 

6044 FORS2=1TO30 : NEXT 

6045 PQKESl+4,0 

6046 RETURN 

6047 : 

6040 REM PLflVER WALKING SOUND 

6043 

6050 POKES1+24.15=POKES1+12,15=POKES 
^ 15: POKES l-»-l 1*0: POKES 1 + 1 1 * 33 

6052 POKES1+7* S2 : POKES1+S* S2 

6055 FORZ«1TO1© : NEXT - POKES1 + 11,0 

6056 RETURN 

6057 

6050 REM MOVING BULLET SOUND 

6053 

6060 POKES1+24*15=POKES1+12,15:POKES 
•* 1 5 : POKES 1-1-1 1*0: POKES 1 + 1 1,17 
6062 POKES 1 -4-7 .. S3 = POKES 1+ S * S3 
PORI2=1TO200 
POKES1+11*0 
RETURN 


1 + 13 


6064 

6060 

6063 

6077 

6070 

6073 

6000 


REM 


GRME OVER SOUND 


60S3 
6004 
6066 
6033 
6037 
6030 
6033 
6100 
6102 
6104 
6 106 


:TOS2 


POKES 1 -*-24 , 15 : POKES 1 + 12, 15 : POKES: 
1 5 : POKES 1 + 11,0 = POKES 1 + 11, 17 
6002 FORS2=1SOTO1STEP—4:FGRS3=3 
POKES 1 -4-7 * S3 • POKES 1 -»-S * S3 
NEXT = NEXT 
POKES 1 + 1 1*0 
RETURN 


1 + 13 
+-10 


REM 


BUG—EVE ROTION 


FORI~1T05 
FDRJ=1TOC3 

GGSUB60 1 0 : POKEM 1 + 1 * D3 < .J > 
PR I NT " 


6107 PRINT' 

6106 GOSUB6010 

6110 PRINT' 

6111 RRI NT ■■ 

6112 NEXT 
6114 NEXT 

6113 RETURN 
6137 

REM FLASHER ROTION 

r 0RI=lT05 
r ORJ=1TOC4 

5GSUB60 1 0 : POKEM 1 + 1 * D4 
6225 POKE53260, 6 + J : POKE532S1 * 7-*-JT 

6230 NEXT 
6240 NEXT 

6250 POKE532S1,0 = POKE53280, 5 

6230 RETURN 

6237 

6233 REM 
6233 
63O0 N5= 



HUNCHBACK ROTION 


'1 = POKEM1+2, S5CN5) : POKEV+4, P2 = P5= 
53 : POKEV+5,P5=POKES1+11*0:POKES1+4,© 

6320 PORI*1TO10©:NEXT 

6321 POKES1+24,15 = POKES1 + 12, 15 : POKES1 + 13 
,.15 = POKES 1 + 11,^: POKES 1 + 11.. 33 

6322 POKES 1 +7 * P5 : POKES 1 +0 .. P5 

6323 N 6—N 6 +1 : IFN6>C2THENN6=1 
6325 N5 S =N5 + 1 = I FN5>B5THENN5= 1 

6330 P5==P5 + 6 : POKEV + 5 * P5 = POKEM 1+2* S5 < N5 > : 

POKEM1 + 1 * D2 <N6 > 

6340 IP CPEEK < V+30>RND5 >=5THENP —2 : POKES1 + 
11*0 = G0T0633© 

6350 IFP5>250THENGOTO63S0 
6360 GOT06320 

6360 POKEV+5 * 0 : POKEV + 4 * 0 
6305 POKES1+11*0 
6330 RETURN 
6337 

6336 REM PULSAR HITS PLRVER 

6333 : 

6400 PORI=0TO15 

6410 POKEV+33* I -POKES1+5* 15 : POKES1+6* 15 = 
POKES1+4* 0 : POKES1+4* 33 
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€•420 POKES 1 -HI , < IS—I > : POKES 1 , C 16—1 > 

6430 FORJ=1TOI*10:NEXT 
6448 NEXT 

6450 POKEV+4 .. 0 : POKEV + 5 , © = POKES 1 -*-4 .. © 
6490 RETURN 

7000 

7001 REM SPRITE DflTR 

7002 

7545 REM HUNCHBRCK BLOBBIS WALKS — 1 

7550 DATA © , 40, © , © 

756© DflTR 170,0,2,170,128 
7570 DATA 10,255,160,11,255 
7580 DATA 224,43,125,224,171 
7590 DATA 190, 224, 171,255, 232 

760© DATA 170,195,17©,170,190 

761© DATA 170,25©,170,17©,10 
7620 DRTR 17©, 170, 1 © , 170, 175 
7-630 DRTR 10, 17©, 160, 10, 170 

76- 40 DRTR 160, 10, 170, 160, 10 
7650 DRTR 170,160,2,13©,128 
7660 DRTR 2 , 130, 128, 10, 13© 

7670 DRTR 160,10,130,160,0 

7675 REM HUNCHBRCK BLOBBIS WALKS — 2 

76S0 DRTR 0 

7690 DRTR 0 , 0 , © , © , 0 

7700 DRTR 0,42,0,0,17© 

7710 DRTR 123,2,255,160,11 
7720 DRTR 255,22-4,11,125,232 
773© DRTR -43,130,23-4,171,255 

77- 40 DRTR 23-4, 17©, 135, 170, 170 

775© DRTR 130,170,170,170,175 

7760 DRTR 250,170,160,10,170 
7770 DRTR 160,10,170,160,10 
77S0 DRTR 170,160,1©,170,16© 

7730 DRTR 10,2, 128, 1© , 2 

7800 DRTR 160, -42, 2, 160, -42 
7810 DRTR 0,0,0 

7815 REM HUNCHBRCK BLOBBIS WALKS — 3 

7S20 DRTR 0,0,0 
7S30 DRTR 0,0,0,0,0 
7840 DRTR ©,©,1©,©,© 

7S50 DRTR -42,123,0,170,163 
7360 DRTR 2,255,170,11,255 
737© DRTR 23-4,11,125,234,43 
733© DRTR 130,234,171,255,233 
733© DRTR 170/195,160,170,190 
7300 DRTR 160,170,170,160,25© 

731© DRTR 170,160,10,170,160 
732© DRTR 10,170,160,2,128 
7330 DRTR 163,2,123,163,10 
73-40 DRTR 123,0,10,123,© 

735© DRTR © 

7355 REM HUNCHBRCK BLOBBIS WALKS — 4 

736© DRTR 0,0,0,0,0 
737© DRTR 0,0,0,0,© 

7330 DRTR 42,0,2,170,123 
733© DRTR 10,255,160,43,255 
300© DRTR 232,171,125,234,171 
3010 DRTR 130,234,171,255,234 
3020 DRTR 170,135,170,17©,130 
303© DRTR 175,250,170,160,1© 

3040 DRTR 17©,160,1©,170,16© 

3050 DRTR 10,17©,160,10,170 
3060 DRTR 160,2,123,160,2 
3070 DRTR 123,160,10,123,163 
303© DRTR 10,123,163,0 

3035 REM HUNCHBRCK BLOBBIS DANCES — 1 

3030 DRTR 0,4© 

3100 DRTR 0,0,170,0,2 
3110 DRTR 17©, 123, 10, 255, 160 
3120 DRTR 11,255,224,43,125 
3130 DRTR 224,171,130,224,171 
3140 DRTR 255,232,170,135,175 
3150 DRTR 170,135,175,250,13© 

3160 DRTR 175,10,170,170,1© 

3170 DRTR 170,16©,10,170,16© 

3130 DRTR 10,17©,160,10,17© 

8130 DRTR 160,10,170,160,2 
8200 DRTR 130,123,2,130,16© 

3210 DRTR 10,13©,16©,10,123 
322© DRTR ©,0 

3225 REM HUNCHBRCK BLOBBIS DANCES — 2 

323© DRTR ©,40,0,0 

8240 DRTR 170,0,2,170,128 

3250 DRTR 10,255,160,11,255 

3260 DRTR 224,43,125,224,171 

3270 DRTR 190,224,171,255,232 

3230 DRTR 171,0,234,171,0 

3230 DRTR 234,251,0,234,1© 

3300 DRTR 255,170,10,170,175 
3310 DRTR 10,170,16©,10,170 
332© DRTR 160,1©,170,160,1© 

333© DRTR 170,160,2,130,123 
334© DRTR 2,130,123,10,130 
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©350 DRTR 
©355 REM 
8360 DRTR 
8370 DRTR 
8380 DRTR 
8390 DRTR 
8400 DRTR 
©410 DRTR 
©420 DRTR 
©430 DRTR 
©440 DRTR 
©450 DRTR 
©460 DRTR 
8470 DRTR 
©4©0 DRTR 
8490 DRTR 
8495 REM 
©50© DRTR 
©51© DRTR 
©520 DRTR 
©530 DRTR 
©54© DRTR 
©55© DRTR 
©56© DRTR 
8570 DRTR 
©5©0 DRTR 
8590 DRTR 
©60© DRTR 
©61© DRTR 
©620 DRTR 
©630 DRTR 
©635 REM 
©64© DRTR 
3650 DRTR 
©66© DRTR 
8670 DRTR 
8680 DRTR 
863© DRTR 
3700 DRTR 
8710 DRTR 
8720 DRTR 
873© DRTR 
8740 DRTR 
8750 DRTR 
8760 DRTR 
8770 DRTR 
8775 REM 
8780 DRTR 
8790 DRTR 
©80© DRTR 
381© DRTR 
©820 DRTR 
©©3© DRTR 
©84© DRTR 
©©5© DRTR 
©860 DRTR 
887© DRTR 
©880 DRTR 
©830 DRTR 
©30© DRTR 
©305 REM 
©310 DRTR 
©32© DRTR 
©33© DRTR 
©34© DRTR 
©35© DRTR 
©360 DRTR 
8370 DRTR 
©380 DRTR 
©330 DRTR 
300© DRTR 
301© DRTR 
302© DRTR 
3030 DRTR 
3©40 DRTR 
3045 REM 
3©50 DRTR 
306© DRTR 
9070 DRTR 
3080 DRTR 
3030 DRTR 
310© DRTR 
3110 DRTR 
3120 DRTR 
3130 DRTR 
314© DRTR 
3150 DRTR 
316© DRTR 
3170 DRTR 
3175 REM 
318© DRTR 
313© DRTR 
3200 DRTR 
321© DRTR 


1 60 .. 10, 1 30 ^ 1 6© .. 0 

HUNCHBRCK BLOBBIS DRNCES — 3 

0 

40 1 70 .. 0 

2.. 170, 128, 10,255 

16©,11,255,224,43 

1 25 ^ 224 ^ 25 1.-1 3© , 224 
25 1 .* 255 .. 232 ^ 25 1.-0 
234 ^ 171,0,234,11 

0 ^ 234 .. 11,0, 234 

10.255.175.10.170 
16©.. 1 © .■ 170, 16©.. 1© 

170,160,10,170,16© 

2 13©.. 128,2, 13© 

160, 1©.. 13©.. 160, 1© 

128, 0 j> © 

BUG—EVED BLOBBIS WRLKS — 1 

1 

65,64,©,65,© 

© .. 65,0,0, 65 
65 .- © .. 3 

255 , 192, 170, 130.- 17*© 

143,130,86,143,13© 

©6,1 128, 190,2, 12© 

130.2.170.130.170 

3 .. 255 ^ 1 32 .. 3 .. © 

132 ^ 3 ^ 255 ^ 132 ., © 

4© -.©..©.. 4© .. © 

10.170.160.10.170 
160,10,0,160,42 

0,168,© 

BUG—EVED BLOBBIS WRLKS — 2 

©■ 1 ..64 

©0-> 1 ., © .. 4 .. 1 

©^1^ 65, ©, © 

65 s 0 s 3 s 255 .. 132 
3 ^ 255 ^ 1 32 .. 42 ✓ 255 
1 6© , 38 , 255 .. 1 52,34 
255, 136,42.. 255.. 16© 

3 ^ 255 > 1 32 .. 3,255 
132, 3 .• © ., 192,3 
© .. 1 32 , 131,255 ^ 1 32 
128,40,0, 170, 17-0 
160,170,170,16©,© 

© -■ 1 60 ^ © , © ^ 1 6© 

0 

DUG—EVED BLOBBIS WRLKS — 3 

© -» 1 -• 64, © , 1 
0 > © -f 1^©^ ©5 
65 ©, 64 ^ 65 .. © 

3,255,192,17©,13© 

170,143,190,86,143 
190,86,128,190,2 
128,130,2,170,13© 

170,3,255,132,35 
0 -■ 1 32 , 35, 255, 132 
4© 4© .. © , 42 ^ 4© 

0 .» 10, 170, 160,2 
170,160,0,0,16© 

© * © 1 68 .. © 

DUG—EVED DLOBBIS WRLKS — 4 

1,64 

0,0.. 64, 5, 0 

64 .. 16,0, 64,64 

© ^ 65 © .. 3 ^ 255 

132 3 > 255, 132 ^ 42 

255, 168, 38 * 255, 152 
34,255,136,42,255 
168, 3.. 255, 132, 3 
255,132,3,0,132 
3 ^ © ^ 132 .. 3, 255 
1 34 .. © ^ 4© ,2, 10 
17©,170,10,170,170 
10,0,0, 42, 0 
0 -» © 

DUG—EVED DLODD1S WRLKS — 5 

1 -■ 64, ©., © 

64, ©^0^ 64, © 

0 -• 65 , ©5 .- © .- 65 
1^3^ 255, 132.- 17© 

130,170,143,130,86 
149,130,86,128,13© 

2 .. 128, 130,2, 1 7*© 

190,170,3,255,132 

3 .■ © .. 20© .. 3 ^ 255 
200,0, 4© .. 4© .. © 

4©168, 10, 170, 16© 

10, 17*©^ 123, 10,0 
0,42,0,0,0 

DUG—EVED DLODD1S DRNCES — 1 

1 

65 64 ^ © .. 65 © 

0 .. 65, © j 0 * 65 
©■.©.. 65 j> ©^3 
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9220 DRTR 255,192,3,254,170 
9230 DRTR 3,254,36,170,190 
9240 DRTR 36,149,190,2,143 
925© DATA 190,2,128,190,170 
326© DRTR 128,191,192,170,128 
9270 DRTR 192,3,255,192,123 
9280 DRTR 40,2,128,40,2 
9290 DRTR 170,170,170,170,170 
9300 DRTR 170,©,©,©,© 

9310 DRTR © , © , © 

3315 REM BUG—EVED BLOBBIS DANCES — 2 

332© DRTR 1,65,64 

333© DRTR 0,65,0,0,65 

3340 DRTR © , © , 65 ,0,0 

335© DRTR 65,0,3,255,132 

3360 DRTR 3,255,132,3,255 

3370 DRTR 132, 17©, 130, 170, 143 

3380 DRTR 130,86,143,130,86 

333© DRTR 128,190,2,128,190 

34©0 DRTR 2,170,130,170,3 

341© DRTR 255,132,0,40,0 

342© DRTR 0,40,0,10,170 

3430 DRTR 160,10,17©,160,1© 

344© DRTR 0,160,42,0,168 
345© DRTR © 

3455 REM BUG—EVED BLOBBIS DANCES — 3 

346© DRTR ©.. © , © , © , © 

9470 DRTR 0,1,65,64,0 
343© DRTR 65 ,0,0, 65 .. © 

343© DRTR 0,65,0,0,65 
350© DRTR ©,3,255,132,17© 

351© DRTR 130,178,149,190,86 
352© DRTR 143,130,86,128,190 
3530 DRTR 2,128,190,2,170 

354© DRTR 130,170,3,255,132 
3550 DRTR 131,0,194,131,255 
356© DRTR 134, 17=*©.. 170, 170, IT© 

357-0 DRTR 1 7"© , 1 7© , 0 , © , © 

353© DRTR ©,©,©,© 

9535 REM BUG—EVED BLOBBIS DRMCES — 4 

953© DRTR © , © 

36©0 DRTR © , © ji 0 , © .• © 

961© DRTR ©.©. 3©, ©, 5 
362© DRTR 4,0,16,1,© 

363© DRTR 64, © , 65, © , 3 

964© DRTR 255,132,170,190,170 

3650 DRTR 143,130,86,149,13© 

366© DRTR 86,128,130,2,128 
367-0 DRTR 130,2, 170, 130, 17© 

363© DRTR 3,255 , 132 , 3 , © 

363© DRTR 132,3,255,132,1© 

37-0© DRTR 170, 16©, 1©.. 170, 16© 

37-1© DRTR 10,0,160,42,0 
9720 DRTR 168,© 

37-25 REM BUG—EVED BLOBBIS DANCES — 5 

37-3© DRTR ©,©,©,© 

37*4© DRTR ©,©,©,©,© 

37-5© DRTR ©,©,©,©,© 

97-6© DRTR © , 35 , 65,35,64 

9770 DRTR 65,1,3,255,132 
97*3© DRTR 3,255, 132,42,255 
3730 DRTR 168,38,255,152,34 
330© DRTR 255,136,42,255,168 
331© DRTR 3 , 255 , 132 , 3 , © 

932© DRTR 192,131,©,194,131 
333© DRTR ©,194,171,255,234 
334© DRTR 17©,170,170,0,0 
935© DRTR 0, ©,©,©, © 

3995 REM FLASHIMG BLOBBIS WRLKS — 1 

1000© DRTR 170 

1001© DRTR 17©, 170, 170, 1 7© , 1 7*© 

1002© DRTR 17©,170,17©,170,170 
1©03© DRTR 170,170,170,170,170 
1004© DRTR 170,170,169,85,106 
1 005© DRTR 17-1 , 215, 234 , 1 63 , 2© 

10060 DRTR 42,168,20,42,169 
1007© DRTR 85,106,169,85,106 
1003© DRTR 169,0,106,169,85 
10090 DRTR 106,163,85,106,17© 

10100 DRTR 17©,17©,170,170,17© 

1011© DRTR 17©,17©,170,170,17© 

1012© DRTR 17©,170,170,17©,17© 

1©13© DRTR 170,17©,© 

10135 REM FLASHING BLOBBIS WALKS — 2 

1014© DRTR ©,©,© 

1015© DRTR 0,0,0,42,17© 

1016© DRTR 163,42,170,163,42 
1017© DRTR 17©,163,42,170,163 
1013© DRTR 41,35,104,43,215 
1019© DRTR 232, 4©, 2© , 4© , 4© 

1©200 DRTR 2©,4©,41,35,1©4 
1021© DRTR 41,35,1©4,41,0 
10220 DRTR 104,41,0,104,41 
10230 DRTR 35,1©4,42,17©,163 
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10240 
10250 
10260 
1 0270 
10275 
1 0280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
1 0370 
1 0330 
10390 
10400 
10405 
10410 
10420 
10430 
10440 
10450 
10460 
1047 -© 
10430 
10490 
10500 
10510 
10520 
10530 
10540 
10545 
10550 
10560 
10570 
10530 
10590 
10600 
10610 
10620 
10630 
10640 
10650 
10660 
10670 
1067^5 
10630 
10690 
107-00 
107-10 
107*20 
10730 
10740 
10750 
10760 
10770 
10780 
1 © 7 * 9 © 
10300 
10310 
10315 
10320 
1033 © 
10340 
10350 
1036 © 
1 037*0 
10330 
10390 
10900 
10910 
10920 
10930 
10940 
1095 © 
10955 
1096 © 
1097-0 
10930 
10990 
1 1000 
11010 
1 1020 
1 1030 
1 1040 
1 1050 
1 1060 
1 1070 
1 1030 
1 1035 
1 109 © 
1 1 100 


DflTfl 

DRTfl 

DRTR 

DRTfl 

REM 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

REM 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

REM 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

REM 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

REM 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

REM 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

REM 

DRTR 

DRTR 


42,170,168,42,17© 

168, 42, 170, 168, 1 
65 , 3© , 5 , 64 , © 

0 

FLASHING BLOBBIS WALKS 
0,0,0,0,0 
0,0, 0,0,0 
0 , 0 , 10, 170, 160 
10,170,160,9,85 
96 , 11,215, 224 , © 

20,32,24,20,36 
39 , 35, 101,39 , © 

101,9,0,96,9 
0 , 96 , 9 , 35 , 96 

10.170.160.10.170 

160.1.65.64.1 
65, 64, 1 , 65,64 
5 , 65 , 30 , 0 

FLASHING BLOBBIS WALKS 
0,0 

0 , 0 , 0 , 0,0 
0 , GJ , 0 , 0 , 0 
0, 0, 0, 0, 0 
0 , 1 , 85, 64, 3 
215, 192 , 0 , 2© , 0 
16, 20, 4 , 85, ©5 
35 , 35,0, ©5 , 1 
0 , 64, 1 , 0 , 64 
1 , 0 , 64, 1 , 35 

64, 1 , 65, 64, 1 
65 , 64 , 1 , 65 , 64 
5 , 65, 64, 0,1 
30, 0 

FLASHING BLOBBIS SPINS 
0, 0, 0, 0 

0,0,42,17©,16© 

42.170.163.42.170 

163.42.170.169.41 
197,105,41,196,105 
41,196,105,41,©4 
104,41,34,1©4,41 
©4,104,41,196,1©5 
41,196,105,41,197 

105.42.170.169.42 
170,163,42,17©,163 
42,17©,163,0,0 

0, ©, 0, ©, 0 

FLASHING BLOBBIS SRINS 
5 

65, ©0,1,65,64 
1,65 , 64, 1,65 

64,10,170,160,10 
170,160,9,©5,96 
9,©,96,9,0 
96,39,0,101,©9 
©5,101,24,20,36 
S,20,32,11,215 
224,9,35,96,1© 

17©,160,10,170,160 
0, 0, 0,0, 0 
0, ©, 0,0,0 
0,0,0 

FLASHING BLOBBIS SRINS 

0 , 30 , 0 

0,30,0,0,©4 

0,0,30,0,64 

3©,0,©5,©5,64 

35.19.64.35.19 

64.1.19.64.1 
21,64,1,21,64 

1.21.64.1.19 

64.35.19.64, ©5 

19.64, ©5,©5,64 
64,30,0,0,30 
0,0, 34,0,0 

©©,0,0,©0,0 
0 

FLASHING BLOBBIS SRINS 

0,20,0,0, 20 

0 , 0 , 34* , 0 , 0 

2©,0,10,170,160 

1©,170,161,9,197 

101.9.196.101.9 
196,101,9,34,96 
9,©4,96,9,34 

96.9.196.101.9 
196,101,9,197,1©1 
10,170,161,1©,17© 

160,0,20,0,0 

©4, 0,0, 2©, © 

0,20, 0,0 

FLASHING BLOBBIS SRINS 
5, 65 

©0,1,65,64,42 


4 


1 


2 


3 


4 


5 
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11110 DflTR 
11120 DATA 
11130 DATA 
11140 DATA 
11150 DATA 
11160 DATA 
111 7*0 DATA 
11130 DATA 
11130 DATA 
11200 DATA 
11210 DATA 
11220 DATA 
11225 REM 
11230 DATA 
11240 DATA 
11250 DATA 
11260 DRTH 
11270 DATA 
11230 DATA 
11230 DATA 
11300 DATA 
11310 DATA 
11320 DATA 
11330 DATA 
11340 DRTR 
11350 DRTH 
11355 REM 
11360 DRTR 
11?70 DRTR 
11330 DRTR 
11330 DRTR 
11400 DRTR 
11410 DRTR 
11420 DRTR 
11430 DRTR 
11440 DRTR 
11450 DRTR 
11460 DRTR 
11470 DRTR 
11430 DRTR 
11430 DRTR 
11435 REM 
11500 DRTR 
11510 DRTR 
11520 DRTR 
11530 DRTR 
1 1540 DRTR 
11550 DRTR 
11560 DRTR 
11570 DRTR 
1153© DRTR 
11530 DRTR 
11600 DRTR 
11610 DRTR 
11620 DRTR 
11630 DRTR 
11635 REM 
11640 DRTR 
11650 DRTR 
11660 DRTR 
11670 DRTR 
11630 DRTR 
11630 DRTR 
11700 DRTR 
11710 DRTR 
11720 DRTR 
117*30 DRTR 
117*40 DRTR 
1 1 7*50 DRTR 
11760 DRTR 
11765 REM 
11770 DRTR 
1 17*30 DRTR 
11730 DRTR 
11300 DRTR 
11310 DRTR 
11320 DRTR 
11330 DRTR 
11340 DRTR 
11350 DRTR 
11360 DRTR 
11370 DRTR 
11330 DRTR 
11330 DRTR 
11300 DRTR 
11305 REM 
11310 DRTR 
1132© DRTR 
1133© DRTR 
11340 DRTR 
11350 DRTR 
11360 DRTR 
1 1 37*0 DRTR 
11330 DRTR 


17*0.. 168,42, 170, 163 
42, 170, 168,42, 17*© 
163,41,85,104,41 
0 104,41,0, 1©4 

41,35 ^ 1©4,41,35 
1©4,41,35 ^ 1©4 .. 4© 

2© ^ 4© ^ 43,215, 232 
41 ^ 85, 104, 42, 17*0 
168,42,170,163,42 
170,168,42,170,163 
0 , 0 , 0 , 0,0 
0 s 0 

FLASHING BLOBBIS SPINS 
170, 170, 170, 17*© 

170, 170, 17©.. 170, 17© 

170,170,170,170,17© 
170, 170.- 170.. 170, 163 

83, 1©6 * 169, 13, 106 
163,13,106,169,21 
1 ©6 ji 163,21,106, 163 
21,106, 163.. 19, 106 
163, 13, 106.. 169,83 
106, 170, 170, 17©.. 17© 

170, 170, 170 j. 170, 170 

170,170,170,170,17© 
17©.. 170, 170.. 170.- 0 
PLAYER WALKS RIGHT — 1 

0 

170 ^ 0 j 0 j 170 0 

0 j 170, 0 j 0 .» 35 
0 * 10, 170, 160,0 
243 ^ 0 0 j 255 .. 132 

0 ^ 255 * 0 „* 0 .« 6© 

0 J © .. 42 -» 0 .■ 0 

42,128,0,42,123 

0,42,128,0,17© 

123,0,154,128,0 
1 66 j* 0 j 1 0 .» 1 7© ^ © 

© ^ 42, © -• 0 j> 42 
©^0^ 21 ^ 64, © 

21,64,0 

PLAYER WALKS RIGHT — 2 

170, © 

0 170,0,0, 17© 

0^0.. 85, 0, 10 

170,160,0,255,132 

0,255,0,0,60 

0 ^ 0 j* 42 ..0^0 

42, 128, ©.. 42.- 123 

© .. 42 -• 1 23 ^ © ^ 42 

128,0,170,128,0 

1 65 ., © .. © .■ 1 7© -• 0 
0 > 170, 0 .» 1 .. 17© 

16,1,74 .. 3© .• © 

81,3©,0,31,64 
0 

PLAYER WALKS LEFT — 1 

0^1 7© ..0^0^ 1 70 

0 j 0 j 1 1 70 ^0.-0 

S5•0.10,170,160 

0 .. 207,0,3,255 

0 .* 0 * 255 -.0.-0 

6© ^0^0^ 163,0 

2 .> 168, 0 ^ 2 j. 163 

0 2 .» 163, 0^2 

1 7© .• © .• 2 .• 1 66 .- 0 
0 .. 154,0,0, 170 
0^0.. 1 63 0 .• © 

163.- 0 , I , 84, 0 
1 ^ 34 ^ 0 j 0 

PLAYER WALKS LEFT — 2 

0.. 170 

0 .. 0 ^ 1 7© -.0^0 
170, ©.. ©.. 35.. © 

1 0 j. 170, 160,3,255 
0 ^ 0 255.. 0^0 

6© .. 0 0 ^ 163 j. © 

2..168,0^2^163 
0 .. 2 ^ 1 63 . 0 -2 
163,0,2,170,© 

©.. 90, 0 j 0 * 170 
0.-4.. 1 70 5 

17© .. 64 ^ 5, 161,64 
5 69, 64.. 1 63 

0^0 

PULSAR PULSES — 1 

0 .* 0 -> 0 J" 0 

0 , 0,0 , 0 , 0 
0 j> 0 j 0 .» 0 ^ 0 
0 , 0 , 0 , 0,0 
0 , 0 , 0,0,0 
© .. 1 70 j> 128,0, 13 1 
128,0,183,128,0 
191,123,0,170,123 


6 
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1 1990 

DRTfi 

0 s 

0s 

0 s 0 s 0 


1 2000 

DflTfl 

0s 

0s 

0 s 0 s 0 


1201Q 

DATA 

0s 

0s 

0 s 0 s 0 


12020 

DATA 

0s 

0s 

0s 0s 0 


12030 

DATA 

0s 

0s 

0s 0s 0 


12035 

REM 

PULSAR PULSES 

— 2 

12040 

DATA 

0 




12050 

DATA 

0s 

0s 

0s 0s 0 


12060 

DATA 

0s 

0s 

0 s 0 s 0 


1207*0 

DATA 

0s 

0 s 

0s 0s 0 


12000 

DATA 

0 s 

0s 

0s 0s 0 


12000 

DATA 

0s 

0s 

0s 0s 0 


12100 

DATA 

0s 

0s 

63s0s0 


121 10 

DATA 

55 

is 0 

1 s 0 s 63 s @ 


12120 

DATA 

0s 

0s 

0s 0s 0 


12130 

DATA 

0s 

0 s 

0s 0s 0 


12140 

DATA 

0s 

0s 

0s 0s 0 


12150 

DATA 

0s 

0s 

0s 0s 0 


12160 

DATA 

0s 

0s 

0 s 0 s 0 


12170 

DATA 

0s 

0s 

0 


121 7*5 

REM 

PULSAR PULSES 

— 3 

12100 

DATA 

0s 

0s 

0 


12100 

DATA 

0s 

0s 

0s 0s 0 


12200 

Data 

0s 

0s 

0s 0s 0 


12210 

data 

0s 

0s 

0s 0 s 0 


12220 

DATA 

0s 

0s 

0 s 0 s 0 


12230 

DATA 

0s 

0s 

0s 0s 0 


12240 

DATA 

0s 

0s 

0s 4s 0 


12250 

DATA 

0s 

0s 

0s 0s 0 


12260 

DATA 

0s 

0s 

0 s 0 s 0 


1227-0 

DATA 

0s 

0s 

0 s 0 s 0 


12260 

DATA 

0s 

0s 

0s 0s 0 


12200 

DRTA 

0s 

0s 

0 s 0 s 0 


12300 

DATA 

0s 

0s 

0 s 0 s 0 


12310 

DATA 

0 




20000 






20010 

REM 



RESTORE MEMORV 

20020 






20030 

POKE648 ,4 

S PR I NT ra M : 

: 3TOR 


READY. 
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Sound the Whistle 

Igor Tulchinsky 


0 REM ********************************* 

1 REM * SOUND THE WHISTLE * 

2 REM * BV IGOR TULCHINSKY * 

3 REM * CO 1984 FRHFRRE HOUSE, INC. 3*6 

4 REM * BOX 30eS HOUSTON, TX 77253 3* 

5 , REM ********************************* 
190 

131 REM INITIRLIZRTION 

192 - 

1 96 RR I NT " 7131=1'’ : POKE53280 -• © = POKE5328 1^0 

500 POKE54296 , 0 : GOSUB18000 = PRINT''^" : OOSU 
B13000:POKEV+21,1© 

501 POKEV + 23, 1© = POKEV+29, 1© = POKEV+8, 20 : R 
OKEV + 9 * ISO = POKE53265, REEK C 53265> OR16 
202 FOR 1 = 1 TO 1 E9 - RR I HTM I Ti& C " ■ sr%i mSSTK JWBS3gBS»l 
rXS" * RND<8'^15+1 , 1 > Ji 

S03 POKES+1 . RND C© > *50-+-1 © = OOSUE20000 

204 IFREEK C 56320>+PEEKC 56321 >=382THENPOK 
ES+4 , 17 : POKES+ 1 .• RND C 3 > #50+ 1 00 - NEXT 

205 POKES+4,33 = POKES-*-1 S© : Q-THN <S) : POKES 
+4^ 0 : POKEV+21^0 

206 GOSUB21000 

207 IFREEK C 56320> +PEEKC 56321 > =382THEN207 
S0S POKES + 4, 33 : POKES+1 .. 20 = Q=TRNC © > = POKES 
+4^ 0 : POKEV+21^0 

209 GOSUB1S000:GOSUB13000 : POKEV+21-■255 
SI© = 

211 REM MAIN LOOP 

215 FOR1 = 1TOS - GOSUB 500 : NEXT = GOTOS15 
497 : 

43© REM MOVE TERM MEMBER 

433 = 

500 JSX=NOT C REEK C 563 1 3+1 > > :ROKES + 4/,p 
510 I F C JSXAND 16) O 1 SORFLfi C I > >0THEN540 
5 11 I F C NOT JSJiRND 1 37 > = 111 THENRETURN 
515 POKES + 4 .. 1 S3 = ROKES+ 1 .. C RND C © > *33 > -*- 1 50 
5S0 CLXC 1 > = 1S : CLKCS > = 1 1 : GOSUB1TOO© = CLXC 1 
> = 1 = CLKC 3 > =0 

530 IF C JSKRHD1 > = 1THENHKC I > = 1 

531 IF C JSKRNDS> =8THENNKC I > =3 
533 IF C JSKRNDS> =2THENNKCl)=3 
533 IF C JSKRND4> =4THENNKC I > =4 
535 GOSUB17000 

540 IFFLKCI>>0THEN553 

545 DXKCl)= S* C C JSKRND4> =4 > — S* C C JSKRNDS> = 
©> 

550 DVKC I > = 3* C C JSKRHD1 > = 1 > —3*C C JSKRND2> = 
3 > 

553 IF C DXKCl)ORDVKCD)OOTHENPOKES+4* 33 = 
ROKES+ 1 .. RND C S > *3©-*- 1 O 
555 ZK=C C I — 1 )#4+NKCD) 

560 XX C ZK> =KKC ZK> +DXKCD 
ST© VKC ZK> =VKC ZK> +DVKC I > 

5©© POKEV+1+2* C ZK-1 ) , VK C ZK) _ _ 

53© IFXK C ZK > >255THENF‘OKEV+ 16.. REEK C V-+-1 © > O 
RF'KCZK — 1 > - GOTO©©© 

535 ROKEV+ 16.. REEK C V-+-1 © > RND C 355— RK C 2X — 1 > > 
©0© POKEV+2#C ZK-1 > .. XX C ZX> RND355 

©10 IFVKC ZX> >13SORVXC ZX> <58THENDVXC I > =—D 
VXCI>-GOTO5T0 

630 IFXX C ZK> <=342RNDXX CZK> >=6THEN670 
©40 I FXX C ZX > >342THENSX C 1 > =SK CD + 1 : GOSUB 1 
300© 

©5© IFXX C ZX> C6THENSKC 2 > =SXC2) + l = GOSUB13© 
00 
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■S60 UOSUB 1 6000 - POKE 1 7080 .. SX < 1 > : POKE 1 700 1 
.. SX < 2 > : CUR = GOSUE 1 3000 

665 3X <£ 1 > =PEEK < 1 7000 > : ST; =PEEK < 1 700 1 > : 

G0T0210 

670 I FFL7- < I > >0THENFLT; C I > =FLT; < I > — 1 : G0T068 
0 

67 1 QlTi=PEEK<V + 30> 

67*2 IFCQl KRNDFX < ZT£~ 1 > > OPT: < ZK- 1 > THEN6S0 

674 DXX < I > =-DXK < I > : D VX < I > =—DVX Cl) 

6f'5 IFC DXX < I > ORDVT: < I > > O0THENFLK Cl) =3 : CQ 
X = 0 : G0T0678 

676 CQT;=CQT:+ 1 = I FCQK=2THENDX?i C X ) « I NT C RND C 

S > 3*2 > 5*3 — 4 : DVK < I > = I NT t RND C8) 3*2 > =*© — 4 : G0T06 
«■■ 5 

678 GOTO560 
600 RETURN 

997 : 

998 REM 

333 : 

1 0000 DRTfl 0 j> 0 ji 0 j» 0 .» 62 


SRRITE DflTfi 


0^0^127,0 

10001 DRTR 0,201,128,0,201,128,0,127,0 

10002 DRTR 0,255,128,15,255,248,27,255,2 


36 
1 000 
2ob 

10004- DRTR 


DRTR 51,255 .. 230,51,255 ^ 230 .. 27* 255 ^ 


247 1 52 0 33 ..0^0^ 33 , 

1 0005 DRTR 0^1 33 1 23 .. 0 ^ 0,0 .» 0 0 

1 0006 DRTR 0,0,0,0,0,0,0,0,0 
11397 


0 


PRINT BACKGROUND 


11998 REM 
11333 = 

12000 POKE53280^ 3 = POKE53281 5 = RRINT" rw 

12005 PRINT " 


1 2010 FOR1=1TO20:RRINT 1 
rsl I s4 I I I 

12020 RR I NT " r=S| - 


I I 

= NEXT 


12030 RRINTTREC5)”i 

1204-0 GOSUE 16000 
12050 RETURN 
12337* : 

12333 REM INITIALIZE SPRITES 

12333 : 

13000 RESTORE : ROR1 = 16000TO16062 = READJ = RO 
KEI,J=NEXT 

13020 FOR I -2040TO2047 = POKE I 250 : NEXT : V=5 
3243 

13030 FORI=V+39TUV+46:POKEI,-11*CI>V+42> 
-12#ClC=V+42):NEXT 

13040 FORI =VT OV+ 1 4STER2 : POKE I .. 50 = NEXT = RO 
KEV+16,240 

1 3050 FOR I =V-*-1 TOV+7STEP2 - POKE I ^ 70+ C V-*-7*— I 
>3*2© = NEXT 

1 3055 FOR I =V+9TOV+ 1 5STEP2 - POKE I ^ 7*04- C V+ 1 5 
— I >5*20 = NEXT 

1 3060 POKEV+29 0 : POKEV+23 .. 0 

1 307*© POKEV+28 .. 0 = POKEV+37,7" : POKEV+38 © 
13030 REMPOKEV+21,255 

1 3030 FOR 1 = 1 TO© : XX < I > =50—256s* < I >4 > = NEXT 

131 00 FOR 1 = 1 T04 : VX < I > =REEK < V+ 1 + CI-l) 9*2 > : 

NEXT 

13110 F ORI = 1T04 : VX CI+4)=VX < I > : NEXT 
13120 NX < 1 > = 1 : NX < 2 > = 1 

1^3 1 30 CUX C 1 > = 1 : CUX C 2 > =0 : FOR 1 = 1 T02 : GOSUE 1 

r 000:NEXT 

13 140 FORI=©TO© = RX < I >=2 TI : NEXT 

13145 GUbUE1 3000 :POKES+24,15=FOR1=1TO60: 
POKES-*-1 ^ 150 : POKES-*- 1 .. 200 

1^146 FURJ=1TU4 = NEXT = NEXT : POKES+4, 0 

13150 RETURN 

14337* 

1433© REM END GAME 

14333 

15000 PUKE53280, 1 : POKE53281 ^ 0 : POKES + 4, 33 

: T I$= l, 00000@" 

15010 FORI=0TO200STEP40 
15020 FORJ=40TO0STEF" — 5 
1503© FORK=1T05 

15040 PUKES-*-1 , I+J + K : NEXT : NEXT : NEXT : POKES 
-*-24 0 : POKE V+2 1 .. 0 

15050 PRINT' 

AME OVER" 

15060 PRINT* 

E BUTTON TO RESTART! 

1 5065 IFC PEEK -C 56320 > +PEEK < 5632 1 > =332 > RND 
< T I 4?<> " 000045 " > THEN 1 5065 
15070 SX < 1 > =0 : SX C2)=0 = GOTO209 


irTESS FIR 


15337* 

1533© REM 
i 5333 

16000 PRINT * 


UPDATE SCORE 


0" T AE 





Sound the Whistle Program 153 


o> ■■ sea ,, sKa> ,, n h ,, trb<32> ,, «bj "sk<2> ■ 

1 6005 I FS/J < 1 > >30RSK C 2 > >9THEN 1 5000 
16010 RETURN 
16337 - 

16333 REM SELECT TERM MEMBER 

17000 ; 

1 70 1 0 POKE V — «C 3S+HF. <l>>*e<I = l> — < 42+HK C 2 
< I=2> - CL?i< I > 

17030 RETURN 


INITIALIZE SOUND 


17337 

17338 REM 
17333 

1 8000 3=54272 FORL=STOS+24 = POKEL. 0 : NEXT 

16010 POKES + 5 88 = POKES+6.. 135 : POKES+4,33 : 

POKES+24.. 15 
16020 RETURN 

18337 : 

18938 REM SCORE SOUND 

18333 : 

19000 POKES + 4, 17 = FORX =200TO0STEP-13 : FOR X 

J= 1 TO 1 0 : POKE3+1 .. I+J : NEXT : NEXT 
13010 POKES + 4.0 - RETURN 

13337 

13336 REM RRINT TITLE 

1 333. 


20000 

POKE53280,0 = POKE53281 

.. 5 

: PRINT"M" ; 

200 10 

PRINT" 

3*3*6 3*63* 

3*3*3* 

3* 

5* 

5* 

=* 5+=#=*= 

20020 

PRINT" 

3* 

3* 3* 

3* 

3* 

3*3* 

5* 3* 

20030 

=46 

PRINT" 

3* 

3* 3* 

3* 

5* 

5* 3* 

3* 

20040 

=46 

PRINT" 

3* '=46 3* 

5* 3* 

3* 

3* 

3* 3* 

3*6 3* 

20050 

3*6 

PRINT" 

3* 

3* 3* 

3* 

5* 

3* 3* 

3*6 3* 

20060 

PRINT" 

3* 

3* 5* 

3* 

5* 

5* 

3*6 3*6 

20070 

Srint" 

=*3*=* 3* 

3* 3* =46 

=*=*3* 

3* 

3*6 3*6=463* 

20075 

20060 

PRINT 

PRINT" 


3* 3* 3* 3* 3* 

5* 

=* 

9* 9* 3* 3* 3* 

20030 

PRINT" 


3* 

3* 

5* 

3* 

20 100 

PRINT" 


3* 

3* 

3* 

3* 

201 10 

PRINT" 


5* 

3* 3* 3*3*=* 

3*3*3*=* 

20 1 20 

PRINT" 


3* 

3* 

3* 

3* 

20 130 

PRINT" 


3* 

3* 

3* 

3* 

20140 

PRINT" 


3* 

3* 

3* 

5*3*3*=*=* 

20145 

20150 

PRINT 

PRINT" 

3* 3* 

5* 3* 

3* 

3*3*3* 

3* 5*3*3* 

3*6 =46 

20 160 

=*3*=*3* " 

PRINT" 

3* 3* 

3* 3* 

5* 

3* 

5* 3* 

3*6 

20170 

3* 

PR I NT " 

3* 3* 

3* 3* 

3* 

3* 

3* 

*6 

20160 

3*6 " 

PRINT" 

3* 3* 

3* 3*3*=* 3* 

3* 

3*3*3* 

5* 

546 

20130 

3*6 3*63* ■' 

PRINT" 

3* 3* 5* 

3* 3* 

5* 


3* 3* 

20200 

346 

PRINT" 

3* 3* =46 

3* 3* 

3* 


3* 3* 

3*6 

20210 

3* 

PRINT" 

3* =46 

3* 3* 

3* 

5*5*3* 

5* 


^ ^ ^ ^ ^ ^ ^ • i 

20220 IF< IflND 15? C4THENPR I NT " ■ £»»»»! 

BV GOR I ULCHINSKV Hi" 

2022 1 I F < I RND 15? >6RND < I AND 15X1 1 THENRR I N 

t m smmmmmtc c> 1 384 _rnfrre iouse, -nNC. hi" 

20222 IF < IRND15?>10THENRRINT" 

SS FIRE BUTTON TO BEGIN ■" : GOTO20240 
20240 RETURN 
20337 - 

20336 REM PRINT INSTRUCTION SCREEN 

20333 : 

21000 PRINTS 


VSDSBCDSDGa" : ROKE5326 1 .. 0 = ROKE53280, 

21010 PRINT" 

3*3*3*9*=*5*=*3*=*3*5* " 

#OUND THE OHISTLE 


__ 12 

=*3* 3* 3*3*3* 3* =*=*=*=* 5* =*3*3* 3* 3* 3* =*3*3*3* 9* 3*3*=* 3* 


21030 

PRINT" 

3* " 

5* 

2 1 ©35 

PRINT" 

3* " 

5* 

2 1 040 

PRINT" 

5* 

IS TO 

=*" 


21050 

PRINT" 

5* 

TERM' 

S 3*" 


21060 

PRINT" 

3* 

L—LINE 

^ 3* " 



I HE OBJECT OF THE GRME 
PASS THROUGH THE OPPOSING 
PLAYERS RND CROSS THE GOR 


Sound 
the Whistle 
Program 
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21070 PRINT" *6 OUTSIDE OR THE SCREEN ARE 

R. 3*6" 

21089 PRINT" m 

afg" 

21099 PRINT" 3*6- 

-,, 

21035 PRINT"II" j 

21100 PRINT" 3*6 

21110 PRINT" * \OVE R TERM MEMBER WIT 

H VOUR 

21120 PRINT" 3*6 JOYSTICK. SELECT R DIPPER 

ENT TERM 3* " 

21130 PRINT" 3*6 MEMBER BV PRESSING THE PI 

RE BUTTON 3*6" 

21131 PRINT" 3*6 AND POINT I NO THE JOYSTICK 

IN THE 3*6" 

21132 PRINT" *6 DIRECTION RSSIONED TO THR 

T PLAYER - 3*e" 

21133 PRINT" 3*6 

^ 11 

21150 PRINT" *6- 

-^ ,, 

211 55 pr i nt " nra" ^ 

21170 PRINT" 3*6 LAYERS MR V BLOCK ERCH 

OTHER ■ 3*6 " 

21180 PRINT" 3*6 I HE PIRST PERSON TO SCORE 

TEN 3*6" 

21190 PRINT" 3*e POINTS WINS THE ORME. 

3*6 ■' 

21210 PRINT" 3*6 

3*6 " 

21220 PRINT" 3*6 aaTRESS THE PI RE BU 

TTONS3H 3*6" 

21230 PRINT" 3*6 

346 " 

2 1 240 PRINT" 3*6 3*6 3*6 3*6 9*6 3*63*63*63*63*6 9*6 3*6 3*63*63*63*6 3*6 3*6 9*6 3*63*63*69*6 3*6 3*6 3*6 3*6 

3*6 3*6 3*6 3*6 3*6 9*6 3*6 3*6 9*6 3*6 3*6 " 

21250 RETURN 


Sound 
the Whistle 
Program 



Bumper Ball 


Charles Mott, Jr. 


0 REM 3*3* ##3468*#* 5*63*3*:## 5+5# =*2*-:*:B+:s+S3+:*': 

1 REM 3+5 BUMPER BRLL # 

2 REM * BV CHARLES MOTT, JTR. * 

3 REM * CO 1984 FANFARE HOUSE.. IMG- * 

4 REM * BOX 3062 HOUSTON, TX 77253 * 

5 REM ###*#**##*#***##***###***#***###* 

0 : 

1© GOTO170 
1 1 

12 REM MAIN CONTROL LOOP 

13 

2© JV=PEEKCJS> : I P J VO 1 26ANDJVO 1 25THEN50 
30 IFJV=125THENMV=MV+2©:G0T05© 

40 MV=MV—20 
50 IFMVC60THENMV=60 
0© IFMV>215THENMV=215 

70 IFBX>236RNDBV>124ANDBV<146THEN1©4© 

00 BX=BX+BM : 1FBX>239THEMBM®—BM = BX = 24© = GO 
SUBS 1 © 

00 IFBXC0THENPOKEV+21 ^ © = G03UB74© : GOSUB81 
©:GOTOS40 

10© BV*BV+CM:IFBV>222THENCM=—CM•BV=221=G 
OSUB01© 

11© 1 FBV<57THENCM SS — CM : BV=58 : GOSUBS10 

12© 1FFF=1THENF=F+1=IFF=3THENFF=0:R=© 

130 CX*CX+MC = CV*CV+MC = IFOO230ORCXC70ORC 
V>200ORCVC60THENMC=—MC 

14© IFCREEK C V + 30> ANH2=2>ANDFF=0THENBM= — B 
M:FF=1:BX-BX+BM:GOSUB6S0:GOSUBS1© 

15© POKEV+3, MV = POKEV, BX : POKEV+1 .. BV = POKEV 
■+•4 ^ OX : POKEV+5, CV : GOTO20 
160 

161 REM PRINT TITLE SCREEN 

1©2 

170 POKE046,? 


IS© PRINT'* raWWDWWDaWI ,, T ABC 14 > "BUMPER BALL " 

10 © rr i nt " mjmmsmsmwessm** tab c i 0 > bv Charles m 

OTT JTR. " 

200 PRINT:PRINTTAB<0>"CO 1004 FANFARE H 
OUSE, INC-" 

21 © = 

211 REM INITIHLIZATION 

212 

220 MV= 1 35 - BV= 1 : BX= 1 : BM=4 : MC= 1 : CM=6 : CX== 1 

5© : CV®150 : MS=© : GG=0 : SF-31 : PO=1 = XX=5 

23© -J3=50320 = V=53248 : CL®55290 : 50=54272 : S 

C«1024:BR®53280=BK=53281 

24© POKESO+5,24 : POKESO+24,15 

25© POKEBK ^ 0 : POKEBR ^ © = POKEV+21 © 

200 FORV®0TO0 

270 FORI®0TO15 = POKEBR, I = GOSUBS1© : NEXT 
200 POKEBK,VANDNOT4■NEXT 
20© POKEBK © : POKEBR 0 

300 POKEV+30, 1 = POKEV + 40, 0 = FOKEV+41 „ 2 = POK 
EV+23, © = POKEV+29, © 

310 POKE2040,15:POKE2041,14=POKE2042,15 

32© POKEV+4 , 100 : POKEV+1 10© : POKEV+5, 175 
330 POKEV+0,155:POKEV+2,25 : POKEV+3,15© 
34© FORT=0TO102 : READA : IFA®256THEN300 
35© POKES9 6 + T ■■ R I = NEXT . r , . T , , 

37© 


tmmmmmmmmmmmr' 

3S© 

331 REM PRINT GAME SCREEN 

3S2 : 


Bumper 

Ball 

Program 
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330 PRINTCHR$U47>; =POKEBR,6 

•400 FORI-0TO24 : FQRVs=0TO8 : POKESC+SP + V^ 1 60 
: POKECL + SP + V * 6 = HEXTV 
•410 SP=SP+40 : GOSUBS 1 0 : NEXT I 
430 SCOMPUTERSIBBHaHBBI SCORE 

430 VOUR %■■■■■■■■! SCORE 


440 X&= " =4 IS3ES-4BUMPERKIHIHHIBI IsSES?-=1 B 

RLL ■" 

450 V^= aa B« ISES_4BUriPER»ilBHBHBB I5E"=C=B 
RLLCB" 

460 " =4 ISB3S—■BUNPER)ISHHHIIIlaB ISES - ■ 

T=!(=ll I " 


470 Bl_:£ < 4 > = " SMI 

430 BL$ < 3 > = aa ssmh mmm 
430 BL$ < 2 > as " SM 
500 BL^ a^ = " £«■ « 

510 BL$ < 0 > = ” auLRSTEflLL ,a 

520 POKEBK ji 5 POKE646 j- 1 1 : FOR 1 = 1 TO3 1 : PRINT 
” SS H" ^ : GOSUBS 1 0 = NEXT : RR I NT ,a 5S aa 

530 FOR 1 = 1 T023 : RR I NTTRB C 3© > aa SI * aa = GOSUBS 1 
0 : NEXT : F'R I NT ,a £8" 

540 FORI=30TO0STEP—1=POKESC+40*24+I..160= 

POKECL+40#24+I , 11 : GOSUBS10 = NEXT 

550 POKEV + 2 1^6 = POKE646 .. 0 

560 RRINT aa 5BaWl aa 

570 RRINTTRB < 31 > 

5S0 GOSUBS10 

53© PRINT : PRINTTRBC 31 > aa 23 © aa : GOSUBS 

1 0 

600 RR I NT " USDSDSttfl" 

610 PRINTTRB<23)X$ 

620 GOSUBS1©:ROKE646,0 
630 RR I NT aa XSDZDeSBOMDia" TRB C 3 1 > V* 

640 GOSUBS1© 

650 PRINT : RR I NTTRB <3 1 > aa SI 0 H" = GOSUB 

S10 

660 GOTOS4© 

670 : 

67* 1 REM BHLL HIT PRDDLE 

672 = 

6S0 GG=GG+ 1 : RR I NTLEFTT < PV$ 6 > J LEFTT < PX$ . 
32 > ; CHR$(18); GG 

63© I F.JV= 1 260RJV~ 1 25THENGOSUB7 1 © : RETURN 
7^©0 RETURN 

7-1 © I FRBS < CM > <30THENBM-BM + SGN < BM > = CM = CM + 
SGNCCM) = BM®BM— < BM = 0 > ■ CM=CM—<CM = 0 > : RETURN 
7*2© RETURN 
7*30 

731 REM BALL MISSED PADDLE 

7*32 : 

7*40 FOR 1 = 1 TORO : MS=NS+ 1 : RR I NTLEFT* -r. PV$ .. 23 

> ; LEFT$ < PX$ , 32 > ; CHR^ US); MS 
1750 GOSUBS 1 0 : NEXT : PO= 1 

7*60 POKESO+7 .. 1 28 - POKESO+ 12, 17* : POKESO+ 13, 
140 

7*7*0 F0RI=3T01STER— 1 : POKESO+81*3 : POKESO + 
11^ 33 

780 FORV=1TO20 : NEXT - POKESO+11,32 = FORV—1T 
045© : NEXT : GOSUB73© = NEXT = I=© : GOSUBS1© 

7*3© ROKE646, (IRNDNOT5) = RRINTLEFT$(RV$, 20 

> LEFT$< PX$,31)V* : RETURN 
S0© 

0©1 REM RANDOM NOTE 

SCIS 1 


Bumper 

Ball 

Program 


810 POKESO+4, 16 : ROKESO+1 ^ RND < 0>*40*10 : FO 
RT= 1 T05 : NEXT : ROKESO+4 ,17*: RETURN 
820 
S30 

83J REM RRERRRE FOR NEXT BALL 

332 • 

©40 ROKE13© 0 : V = 0 

: IFXXO- 1 THENPRI NTLEFT* ( PV$ , S 
> * LEFT$<PX$, 31 > ; BL$ <. XX > - GOTOS70 
860 GOTO920 

ST0 JV«=REEK < JS > • GETR$ : I FR$= " ■ !** THEN320 
880 ROKE646/ V • RRINTLEFT^< PV$^ 3> ; LEFT$fRX 
*^31);U&:V=V+1:IFV=3THEHV=0 

830 GOSUBS1© = FOR1 = 1TO250 : NEXT : IFCJVRND16 
)®16THEN870 

300 ROKE646 0 : RR I NTLEFT$ < PV$ .. 3 > ; LEFT$ C RX 
*^31); : V = V 1 : I F V=3THENV=0 

310 GOTO1230 

320 ROKE646.0 : RRINTLEFT$<PV$. 3 > ; LEFT$< RX 

*^31);U$:GOTO1200 

330 

REM SRRITE DRTfl 

332 

338 REM. PRDDLE 

940 DATA 0,0,0,0,0,0,0,56,0,0,56,0,0,56, 

0 , 0 

350 DATA 56,0,0,56,0,0; 

0,0,56 

360 DATA. ©^©^ 56 .. 0 .. 0 ^ 56 > 0 0 56, 

, 56,0 


56 ^0^©^ 56 j> 0 j> 0 j> 56 , 


0 . 0 , 


56,0, 0 
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970 DRTR 0,56.0.0,56,0.0.56.0,0,0.0,0^0^ 
0,0 

980 REM BRLL RMD BUMBER 

990 DRTR 3 ^ 255, 1 92 * ~T * 255 ^ 224 , 15,255 -■ 240 ^ 
31,255,246,63,255,252,127 

1000 DRTR 255 ^ 254 255 j. 255 , 255 ^ 255 .• 255 .. 25 

5 * 255 255 255 ^ 255 ^ 255 ^ 255 ^ 255 255 

1010 DRTR 255 ^ 255 .. 255 255 -• 255 > 255 ^ 255 25 

5 „ 255 ^ 255 ^ 255 ^ 255 „ 255 ^ 1 27 ^ 255 -■ 254 

1020 DRTR 63^ 255 > 252,31,255 24©, 15, 255 > 2 

40 T * 255 > 224 *3, 255 ^ 1 92 255 .• 25© 

1030 

1031 REM BRLL HIT PLUNGER 

1032 

1 040 GOSUB7 1 0 : GOSUB 1 1 7>0 : PGKEV+ 1^1 36 = POKE 
V ^ 247 : FORV-1T025 

1050 PRINTLEFT$C PV$,12>; LEFT$C FX$^ 29 > J 
1060 GOSUB810 

1 07-0 RR I NTLEFT$ C PV$ , 12>; LEFT$ < PX$ ^ 29 > ; 2^ 
1060 GOSUB©10 : NEXT = POKE6460 : JV=0 
1090 FOR1=1TO40:GOSUB680=GOSUB©10 : NEXT 
1 100 POKEV ^ 239 : BX=239 : JV=0 

1110 RR I NTLEFT$ < PV$ , 12> LEFT ^ < PX$ ^ 29 > X3? 

1120 GOSUB710 

1 130 ROKEV, BX = BX=BX —4 : IFBXC0THENPO«30 - RO 

KEV+21,6 = GOSUB740 = GOSUB©10 : GOTO840 

1 140 IFPEEK< V+30> RMD1 = 1RMDPEEKC V+30>RND2 

“2THENBV®136:GOTO20 

1150 GOTO1130 

1160 

1161 REM SPEED UR BUMRER.BRLL 

1 162 

1 1 V& IFRBS< MO > <30THENMC~MG+SGN< MO > : MC = MC 
— C MC«0> = RETURN 
1160 RETURN 
1 190 

1191 REM PRINT FINAL SCORE 

1 192 

1200 ROKEV+21^0:RRINTCHR$C19) 

12 10 RRINTLEFT$CPV$, 12); TRB <7>; "VOUR TOT 
RL SCORE:" 

1220 FORI=0TOC GG-MS> : RRINTLEFT$< RV$, 14 > T 
RBC 14 > CHR$< 1© > I : GOSUB©10 : NEXT 
1 230 GETR* : I FR*<> " HI" THEN 1 230 
1240 RRINTCHR$< 19 > CHR$C 146 > 

1270 RUN 
1260 

1261 REM RELERSE NEXT BRLL 

1262 - 

1290 ROKEV+1 ^ 136 = ROKEV, 23© : ROKEV+5, 136 : R 
OKEV+3,136 = ROKEV+21,6 

1300 CX=INT< RMD < 1 > 3*150+70> : ROKEV+4, CX : GO 
SUB©10:FORT=1TO1000:NEXT:GOSUB©10 
1310 ROKEV+21 > T ■ FOR1 = 1TO1000 : NEXT 
1320 RRINTLEFT$< PV$, 12>; LEFT$C PX$^ 29 > J Z& 
■ ROKEV, 247 : GOSUB©10 = FORT=1TO1000 : NEXT 
1 330 RR I NTLEFT$ C PV$ , 12> LEFT$ < PX$ ^ 29 > X& 
1340 GOSUB©10:BX=243=CV=136 
1350 ROKEV+21 ^ 7 
1360 ROKEV ^ BX = BX=BX—1 

1 37*0 I FREEK < V+30 > RND 1 = 1 RNDREEK C V+30 > RND2 
~2THENBV sb 1 36 = CX= 1 5© : MV= 1 36 : GOTO20 
1360 GOTO1360 



Bumper 

Ball 

Program 




Ride the Wind 

Frank Mikulastik 


0 REM 

1 REM *6 RIDE THE WIND 3*6 

2 REM 3*6 BV FRRNK MIKULASTIK 3* 

3 REM 3*6 CO 1984 FANFARE HOUSE, INC. 3*6 

4 REM 3*6 BOX 3062 HOUSTON * TX 77253 * 

5 REM 3*63*£3*3*6&&3«e&&3+e&':+;:463*€B*e:<te;4e;+:5463ti3t63|€3*':S*<::«&:<t:34£3*e*E3fe3«;fc 

7 REM INITIALIZATION 

S 

3 PR I NT " rCT* J 

10 POKE56578^ REEK C 56578> OR3 

1 1 POKE56576^ C REEK C56576>AND252> OR1 

12 ROKE53272, < PEEK < 53272)AND15 > OR0 

13 ROKE648, 12© : FX = 1 : GOSUE400O : FX=0 
15 DIM HC10,2>,FI<15) : SM*32768 

1© FI < 1) = 19 : FI <2>= 2© = FI C 3 >=21 = FI C 4 >-22 : R 

1 C 5 > *=23 : F I C 6 > =*22 : F I C 7 > =2 1 : FI <8> =20 

IT” FI<9)®19 : FI C 10) =20 : F I < 1 1 > =2 1 : F I C 1 2 > =2 

2 = FI C 13 >=23 : FI < 14)=22 : FI C 15 >=21 

13 NCI, 1 >=33 : N C1,2 > = 135 = N C 2, 1 > =42 : N C 2, 2 > 
= 62 : NC3, 1 >=50 : N C 3,2 >=60 

20 S1*54272=V=5324S-POKEV+2112© : POKEV+2 
S 64 = ROKEV+29 ^ 62 = POKEV+23 .. 64 - M 1 = 1 0 1 6+SM 

21 CSC 1 > = 16 = OS C 2 > =24 : OS C 3 > =25 - OS C 4 > =26 

100 FOR1=16*64+SMT027*64-1+SM=READA=POKE 

1 ^ R = NEXT 

300 GOSUB 4120 

310 GOSUB 4200 

400 GOSUB 300 

410 GOSUB 700 

415 GOSUB 5200 

420 GOSUB ©00 

43© FORI=631TO640 : POKEI .. 0 = NEXT 
497 : 

43© REM CONTROL- LOOP 

433 

500 GOSUB 1000 

505 GOSUB 2000 

507- GOSUB 3100 

51© GOTO 3000 

520 GOTO 500 

630 

631 REM SET UP BALLOON AND CLOUDS 

632 

700 POKEV+45,©:POKEV+37,7:POKEV+38,2 
710 FOKEMl+6', 17 

720 X I =0 = X =300 : RX = ©4 = POKEV+ 1 ©RX : POKEV+ 1 

2 > X —255 

730 V1=0 = V=70 = POKEV+13, V 

74© POKEM1+1,16=POKEV+40,1 : CVC1>=6©=POKE 
V+3, CV Cl >: CX C 1 > = 1©© * POKEV+2-■ OX C 1 > 

745 POKEM1+2, 16 : POKEV+4 1 1 : CV C 2 > =37 = POKE 

V-+-5 , CV C2> = CX C 2 > =220 = POKEV+4 .. CX C 2 > 

755 POKEM 1 -+-3 ^16* POKEV+42 .. 1 : CV C3> = 1 33 : POK 

EV+7 „ CV < 3 > = CX C 3 ;• = 1 30 : POKEV + 6 > CX C 3 > 

760 POKEM 1 -+-4 , 16 = POKEV+43 ^ 1 = CV C 4 ;• = 1 66 = POK 

EV+3,CVC4):CXC4>=50:POKEV+8,CXC4> 

765 POKEM1+5, 16 = POKEV+44, 1 = CVC5>=2©7 : POK 
EV+1 1 ^ CVC5> : CX C 5 > =255 = FOKEV+18, CXC5) 

770 POKEV+31,0 
780 , SC=0 : LD=0 : M = 3 

730 RETURN 

731 . 

732 REM SET UP HERTER SOUND 

733 1 = 

©00 FORK=0TO24 : POKES1+K,0 : NEXT 

© 1 © POKES 1 -*-© .-5 1 : POKES 1 +-7,51 = POKES 1 + 12, 15 


Ride the 
Wind 
Program 
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• POKES1+13.15:POKES1+24,10 
@90 RETURN 

391 

392 REM PRINT GRME SCREEN 

393 

900 PRINT''^"; = POKE53281,14 = POKES 
909 RR I NT " 3=3 SI =1 W I ND D I RECT I ON = 

IRECTION: 


910 PR I NT " SafeQsaal 
ONS 3 SIS* 

911 RR I NT " SsaHDSDSn 
913 PRINT" 


S8 SCORE 0 


91-4 PRINT" 
916 PRINT" 
913 PRINT" 


>230 ji 6 

vour ri 

BRLLO 


SI Bi 


Ride the 
Wind 
Program 


920 

PRINT" 




SBS B si m 

m b 

SI 

930 

PRINT" 




EBB B 

si 

.. 

932 

PRINT" 




SPR 




sm 


*5 

B" 




93-4 

PRINT" 



SBS 583 

m B SHPS 



Hi 



SIR 

■i" 




936 

PRINT" 



SH 

B SI 


B 



SI 

H3" 





933 

PRINT" 



SBB 

B SI 


B 



SI 

— ■ 





9-40 

PRINT" 



SBC 


— 



a ■ h 

m 

SI 

B" 




9-42 

PRINT" 



SB5 


B 



SI B 

SI 

B" 





9-4-4 

PRINT" 

SB 

s sa 

m b 

SI 



■1 

m m 

SI 

B 

SI B" 




9-46 

PRINT" 

SB 

B 

B 

SI 





BH" i 





990 

RETURN 







991 








992 

REM 



MOVE BALLOON 



993 









1000 OET FR$ 

1010 SV~0:V1=V1+1.5 

1020 IFFR$=" "THENSP—18:VI=V1—3:PI=FU~1: 

SV=129:POKE54296,15 

1030 IFFR$<>" "THENSP«17=POKE54296,2 
104S V=V+INT<V1) 

1 050 Q«=— I NT C 35* < S I N C VX 12) 5*62 - 5 > > : PR I NT " SaSlal 

nmmmmmmmmmmmmmmwi ■■■■■" , q 

1055 IF< Q==0 > AND < I NT CXI > —O > THENGOTO 1 0@0 

1 060 I P < C Q<0 > AND (XI >Q > > OR < C Q>0 > AND (XI >G! > 

> OR < < Q = 0> ANDCXI>0 > >THENX1=X1 — 1 : GOTO1030 

1078 X1®X1+1 

1073 IFX1>6THENX1=6 

1077 I FX 1 <L —6THENX 1 =—6 

1 030 X=X-+1 NT (XI) 


1 035 PR I NT " »a«ii»mi»pBiBiBPBiBBBBPiB»BBp| 

j i NT (X1*10)«. l; 


1090 IPV1>6THENV1=6 
1095 IPV1C-6THENY1=—6 

1 1 00 I FX>255THENRX=s C RXOR64 > : POKE V-*- 16 / RX : 
POKEV+12/X—255:GOTO112© 

1110 RX=< RXAND191) : POKEV+16/ RX = POKEV+12/ 
X 

112© POKEV+13/V 
1 1 25 POKEV+3 1 0 

113© POKEM1+6^ SP 
1 1 -4© POKES 1 + 11/ SV 
1190 RETURN 

1991 

1992 REM • MOVE CLOUDS 

1993 

2000 PORI=1T05 

20 10 Q 1 =— I NT C 35*6 (SIN( C V (1)712) 2*2 . 5 > > : CX C I 
> =CX C I >-4-011 

20 13 I FQ 1 >0RNDCX C I > >330THENCX C I > =© -* POKEM 
1+I/CS(INT(RND(0)*4)+1) 

2015 IPQ1C0ANDCXC I> C0THENCXC I > =330 

2020 I PCX C I > >255THENRX= C RXOR (2TI)) *• POKE V 

+ 16/ RX : POKEV+ 15*62 ^ CX C I > —255 = GOTO203© 

2030 RX=< RXANDC 255— C 2 TI> > > = POKEV+16/ RX : R 
OKEV+ 15*62 ^ CX C I > 

2030 NEXT 
2090 RETURN 

2095 

2096 REM COLLISION DETECTION 

2097 

3000 Q1=PEEK(V+31) 

3003 REMP0RK=1T06=NEXT 
3005 REMQ 1 =PEEK C V-+3 1 > 

30 10 I P < V>65 > AND C VC209 > AND C X>23 > AND < X-C32 
0 > AND ((Ql AND64 > 06-4 > THENGOTO520 
3015 COSUB5100 
30 1 6 M==M— 1 : PR I NT 11 

iiPVPPBPPPpr ; M 

30 1 7 I PM= 1 THENPOKEV + 45 .. 0 : POKEV+37 ^ 1 
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3019 IFM«2THENPOKEV+45,5 = POKEV+37, 13 
303& X=300 : V=70 = X 1 = 0 : V 1 =0 : RX== C RXOR64 > 

3040 POKEV+16,RX:POKEV+12,X-255=POKEV+13 
,V:POKEV+31,0 

3053 GOSUBS00 

3054 FORI=631TO640 = POKEI 0 : NEXT 

3055 IFM>0THEN500 

3060 PRINT !, »« GRME H»>»i>»»»>i>i>»>l 

vmmmmmmM over 

3066 FOR1=631X0640 = POKEX ^ 0 : NEXT 
3068 RL=1 - GOSUB510© 

3070 GET R$:IFR$=""THEN3068 

3071 GOSUB300 

3072 GOSUB4200 
3030 FL=0 

3030 GOTO400 

3031 

3032 REM 


3033 

3100 


LANDING DETECT!OH 


IRC XZ>= 1 26 > RND C X<== 1 38 > RND C V>=36 > AND C 
V<=102 > THENL=1 : K1 = 1 : K2=4 : GOTO3200 
3110 IRC X>*=262 > RND C XC=274 > RND C V>= 1 T'6 > RND 

< V<«184 > THENL=2 : K1=2 : K 2=0 : GOTO3200 

3120 IRC X>—30> RND C XC—42>RND C V>=132 > RND C V 
<=200)THENL=4=K1=3:K2=12:GOTO3200 

3130 IRC X>=36>RND C X<=38 > RND C V> =152 > RND C V 
<=1 60 > THENL=8 : K 1=4 : K2= 1 1 : GOTO3200 

3140 IRC X> =158 > RND C X<=1T© > RND C V> =128 > RND 

< Y 1 5 THEHL= 1 6 : Kl=5 = K2=7 : GOTO3200 

3150 IRC X>=138 > RND C X< = 210>RND C V>=120 >RND 
<y<~128>THENL=32 : K1=6 : K2=5 : GOTO320© 

1 R C ><> — 222 > RND C X<1=234 > RND C V>= 1 32 7 RND 
> TH ENL=64 : Kl-7 : K2= 1 3 = GOTO3200 
3 1 7"0 IRC X>=302 > RND C X< = 3 14> RND C V>= 1 44 > RND 
<V<=152)THENL=128 - K1=8 = K2=3 : GOTO3200 

3131 

S’132 REM LANDED 

3133 : 

3200 IRC LDRNDL > =LTHENGOSUB5020 : X =3©0 : ‘t'-T" 
JrS^.5 X==S,::RXORe4> : g °SUB5500 : RETURN 
L-D^C L-DORL-^ : SU=SC+10 - RR I NT 11 

RMBMMMia" i SC 

115? GOSUB§liS K1 ' le ® :POKE55335+K1 'X2 
1151 SoiSieSS 7 '® X1=0: V1=e : 

3248 ROR I =63 1 TO640 : POKE I .. 0 : NEXT 
3250 IFLD0255THENRETURN 
3260 RR I NT" SsaW 
3230 RETURN 

3330 

3331 

3332 

4000 POKE53280,14:POKE53281,6 

4005 RR I NT " 72" ■ RR I NT 

4010 PRINTS Si "BH a B a 

■■ a s a b a b a 

4011 PRINT" a B ^a B a B E 

b mm a b a b a " 

4012 RRINT" a B a B E 

b a b a b a b 

4013 print" a b ar m s 

b a b a b a 

4014 print" a sf" a a 

a b as a b a 

4015 PRINT" a B^a "^B E 

a b a a as 

a b b as 
a b a b a " 


REM 


PRINT TITLE SCREEN 


a 


b a b ^a b a 


a b 


a b 
b a 


b as SSF- b a 


4016 PRINT 

a b 

4017 PRINT" 

b a b 

4020 PRINT 

4030 PRINT" 

a b a 

4031 PRINT" 

b a b a b 

4032 PRINT" 

a b a b 

4033PRINT" 

^a ''B a b a 

4034 PRINT" 

b ^a ^ b a 

4035 PRINT" 

^a B a B 

4036 _PRINT" 


a B 


4037" PRINT" 

^ a a 

4040 PRINT 
4045 PRINT 
4050 PRINT" 
K " 

4055 PRINT 


a b a 
! a b 

a 


a 



a 


a 

a 

a 

B 

a 


B 

a" 

B 

a 

i" 

B 

a 

B 


a b 


a 


a 

B 

a 

B 


a b 


a 


a 
a ■■ 

B 

a 

■ 


a b 


a 

■ 

a 
a ■* 

B 

a* ^ 

a 

* 

a 

B 


a 

a 

r- 

B 


a 

B 

a 

B 


a 

99 


= 


a b 


a 

* 

a 

9B^ 

■^a 

B 

a 


B 

a 

— 
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4060 PRINT-. <C> 193-4 FANFARE HOUSE! 

41O0 POKE53275,255=IFFX-1THENRETURN 

4120 GOSUB700 

4125 POKEV+13,155 

4126 GOSUB5200 

4127 FORI=631TO640=POKEI^0:NEXT 
4130 GOSUB2000 

4140 GETH$:IFfl$=""THEN4130 
4 1 50 FOR 1 = 1107 : POKEV+ X 3*2-*- 1 .. 0 : NEXT 
4155 POKE53275.64 

4190 RETURN 

4191 

4192 REM PRINT INSTRUCTION SCREEN 

4 1 93 

4200 FOR I =0T07 : POKEV+ I *2+ 1 .. 0 : NEXT 
4205 PRINT"173" = POKE53280, 0 : PGKE53281,14 
42 1 1 PR I NT *■ HSB 
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THE LANDING PADS (10 POIN 


SPACE ERR CONTROLS THE BA 


WHICH WILL MAKE IT STRRT 


WIND BLOWS THE BALLOON LE 


42 12 PR I NT" mSBS VOU MUST LAND THE BRLLOON 
ON RLL OP 

4213 PR INT"naK 

4214 PRINT-naa THE LANDING PADS (10 POIN 

TS EACH). THE " 

4215 PR I NT " nSCS 

4216 PRINT" nSSSEB SPACE BAR CONTROLS THE BA 
LLOON'S HEATER" 

4217’ PR I NT " nas 

42IS PRINT"nSE5 WHICH WILL MAKE IT START 
TO RISE. THE 

4219 PRINT"nfiCS 

4220 PRINT" rmCS WIND BLOWS THE BALLOON LE 

PT AND RIGHT. " 

4221 PRINT " nSC3S 

4229 PRINT'TJai 

4231 pr i nt" nai 

4232 PRINT M nsa 

4233 PRINT"WWW" 

4234 PRINT" SONS ■! R " 

4235 PRINT" SSI 

4236 PRINT" SSI B SMS STB R " 

4237- PRINT" SI B Si 

423S PRINT" sa m Sk 

4239 PRINT" Si " i 

4240 POKEV + 37, 7* : POKEV+38, 2 = POKEV + 45, S 

4269 POKEV+2^ 200 : POKEV + 3^ 200 = POKEV+16, 64 

:POKEV+12,50:POKEV+13,170 

4272 GOSUB5200 

4273 FORI a »631TO640 : POKE I j> 0 : NEXT 
427*5 GETA$ : IFAf*" "THENG0T04275 
4260 POR 1 = 1 TOT* = POKEV+ I *2+ 1^0: NEXT 
4390 RETURN 

4990 

4991 REM SOUND ROUTINES 

4992 

5000 POKES 1 +24 j- 15 
5005 FORJ=1T03 

50 1 © POKES 1 +6 , 1 5 : POKES 1 -+-5 ^ 0* 1 ©-#-9 : POKES 1 ■+■ 

4, 17 = POKES1, N<J, 2> = POKES 1 -»- 1 .. N(J, 1 > 

501 1 POKES1 + 12, 15 = POKES1 + 13, 15 = POKES1 + 11 
, 33 : POKES 1 *+-7 * N < J * 2 > -* POKES 1 -*-S ,N(J, 1 > 

50 1 5 POKEV+29 ^ 0 -* POR 1 = 1 TO 1 ©0 : NEXT : POKEV+2 

3 . 1 27* : POR 1 = 1 TO 1 00 : NEXT 

5016 POKEV+29.. 63 : POR1 = 1TO10© = NEXT : POKEV+ 
23,64:POR1=1TO100:NEXT 

5© 1 7* POKES 1 -t-4 , 16 : POKES 1 -t-5 © : POKES 1 -t-6 ^ © 

501S POKES1+11,32:POKES1+12,0=POKES1+13, 
0 

5019 NEXT 

5020 FORK=0TO24 : POKES 1 ~+K .. © = NEXT 

5022 IPV>70THEHSV=—1 

5023 I PV<70THENSV =s 1 

5024 I PX>300THENSU s= — 1 
5026 IFX<300THENSU=1 

5030 PORI-VTO70STEPSV = POKEV+13, I = NEXT 
504© PORI=XTO300STEPSU 

5042 I P I >255THENRX= < RXOR < 2 T6 > > = POKEV+ 16, 


•3S j- 2 = POKEV + 45, S 
■h-3^ 200 = POKEV+16, 64 
170 


5019 NEXT 

502© FORK=0TO24 : POKES 1 ~+K .. © = NEXT 

5022 IPV>70THENSV=—1 

5023 IPV<70THENSV-1 

5024 IPX>300THENSU=—1 
5026 IFX<300THEHSU=1 

503© PORI-VTO70STEPSV = POKEV+13, I = NEXT 
504© FORI=XTO300STEPSU 

5042 IPI>255THENRX= < RXOR < 2 T6 > > = POKEV+16, 
RX : POKEV+12, I—255 = GOTO505© 

5044 POKEV+12,I 

5050 NEXT 

5060 POKEV+31,© 

5090 RETURN 
5099 

5 1 ©0 POR J = 0TO24 : POKES 1 -+-J © : NEXT = POKES 1 +2 

4 j- 15 

5101 POKESi+5 ^ 15 : POKES1+6, 15 
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5102 IFFLO1THEHPOKEV+37^ © : POKEV + 38^ 2 : PO 

KEV+45 ji 7 

5110 FOR JT = l.TO 1 5 

5113 I FFLO 1 THENPOKEM1 -*-6 , FICJ^ 

5115 FOR1=0105:POKEV+39+1^0:NEXT 
512© POKE53281 ^ J ■ POKE53280, J —1 

5 1 30 POKES 1 -*-24 * 1 6—JT : ROKES 1 -*-4 /. 1 23 : POKES 1 -§- 
5. 15: POKES1 + 1 ^ 15-J = ROKES 1 75 — Js*5 

5135 FOR I =0X05 = ROKEV + 39+ I 1 : NEXT 

5 1 *40 ROKES 1 -*-4 ^ 0 
5150 NEXT 

5 1 60 FORJ=0TO24 : ROKES 1 ■+■ J © : NEXT 
5170 ROKE532S1. 14 = POKE53280, 6 = POKEV+38/ 2 
:POKEM1+6/17 
5130 RETURN 
5133 

5200 FORI=0TO24:ROKESl+I/0 : NEXT 
521© POKES1+24/15 
5220 FOR1=1TO200STER7 

5225 POKES1+4/17 : ROKES1+5/IS:POKES1+6/15 
= ROKES1 - I = POKES1 + 1 . I 
5230 F0RJ®1T05 : NEXT 

524© POKES1+4/IS 
5250 NEXT 
5260 ROKES1+4^ 0 
5230 RETURN 
5437 


REM GOOD LANDING 

5433 

550© FORK*1T03 
5505 POKES1+24/15 

55 1 0 POKES 1 -t-6 / 15 : ROKES 1 -4-5 ©*e 1 6+9 : ROKES 1 ■+• 

4/ 17: ROKES1 / N<4—K .. 2 > : ROKES1 + 1 /NC4—K ^ 1 > 

55 1 3 ROKES 1 + 12/ 15: POKES 1+13/ 15: ROKES 1-4-11 
.. 33 : ROKES1+7/ N<4—K /. 2 > 

55 1 4 ROKES 1 -4-Q . N< 4—K . 1 > 

5520 ROKEV+23/- 0 : FOR1 = 1TO100 : NEXT - POKEV+2 
3 * 127 : FOR1 = 1TO100 : NEXT 

5530 ROKEV+23 -■ 64 s FOR 1 = 1 TO 1 00 : NEXT : POKEV+ 
23/63:FOR1=1TO100:NEXT 

5535 ROKES 1 +4 / 16: ROKES 1 -4-5 .* 0 : ROKES 1 -*-6 , © 
5537 ROKES1+11/32:ROKES1+12/0:ROKES1+13/ 


5540 NEXT 

5545 FORK=0TO24 : ROKES 1 -4-K 0 : NEXT 

5550 GOSUBS00 

5560 FORK=631TO640=ROKEK/0:NEXT 

5530 RETURN 

533© : “ 

5331 REM SPRITE DATA 

5332 : 


6231 REM 
6300 DATA 
631© DATA 
632© DATA 
6330 DATA 
6340 DATA 
6350 DATA 
6360 DATA 
6370 DATA 
63S© DATA 
6330 DATA 
640© DATA 
6410 DATA 
642© DATA 
643© DATA 
6372 REM 
65S0 DATA 
6530 DATA 
6600 DATA 
6610 DATA 
6620 DATA 
6630 DATA 
6640 DATA 
6650 DATA 
6660 DATA 
6670 DATA 
66S0 DATA 
6630 DATA 
670© DATA 
6710 DATA 
6712 REM 
6720 DATA 
67-3© DATA 
6740 DATA 
67-50 DATA 
67*6© DATA 
6770 DATA 
ST'S© DATA 
67-30 DATA 
6S00 DATA 
6310 DATA 
6320 DATA 
6330 DATA 


CLOUD 1 

0 

0 * 0 s 0 0 j 0 

0 /■ © -• 0 j> 0 j> 0 

0^1.- 252 / 0/3 

254 ..©^7*., 255 .. 0 

7/255/128/15/255 
128/15/255/192/31 
255/192/63/255/132 
127/255/224/255/255 
24© . 255 255 254 255 

255/ 255 ji 255 /> 255/ 255 

1 27-255 ^ 255 1 27 .. 255 

254 / 31 252 ^ 6© 3 

224 -.©..© 

BALLOON 

0 

150/0/ 10/ 150 * 160 
42/105/163/163/105 
106/165/105/90/165 
170/90/ 165.- 170.-30 
165/170/30/37/17© 

S3 37 1 ©5 ^ 3© / 4 1 

105/ 104/9/ 105/- 36 
10/ 1 05 -■ 1 60 / 2 / 35 
128/2/150/128/0 
150/ © * 0 /■ 150/ © 

0 / 0 / 0 / 0 / 0 
© - © 20 j. 0 /. 0 

2© /.©.-© 

BALLOON WITH HERTER 
0 * 150/ © 

10/150/160/42/105 
168/169/105/106/165 
1 ©5 30 /. 1 65 .. 1 7© .. 30 

165/ 170/90/ 165/. 17© 

3 © .. 37 / 170 / 33 * 37 
1©5 ^ 3 ©/ 41/105 ^ 1©4 
3 /. 105 / 36 / 1 ©^ 1©5 
1 6 © .* 2 ^ ©5 .■ 1 23 /. 2 
150 / 128 / ©/. 15 ©.- © 

0 1 50 ^0^0.0 

0 * 0 J 60/ 0^0 
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634© DRTR 20.0..@,20.0 
6350 DRTR 0 

6331 REN BALLOON EXPLOSION — 1 

63©0 DATA 0 

631© DRTR 0 .» 0 ,• 0 * 0 * 0 

6320 DRTR ©.. ©.-©..©..© 

633© DRTR ©.. ©.,©^©.,0 
634© DRTR ©.'©.,©^0^© 

635© DRTR ©..©.. 0 ^ © ^ 1 53 
636© DRTR © .- © ^ 118,0,0 
697© DRTR 157,0,0,102,0 
633© DRTR 0^©^©^©^© 

633© DRTR 0^©^©^©^© 

T*©©© DRTR ©^©.. ©-.©,© 

7010 DRTR 0 j> 0 s 0 * 0 j 0 

7020 DRTR 0 ^ 0 j> 0 * 0 .• © 

7030 DRTR 0 © 

7035 REM BALLOON EXPLOSION — 2 

7040 DRTR 0 j 0 .• 0 

7050 DRTR 0 ,* © > 0 .« 0 ji 0 

7060 DRTR 0 j« 0 ^ 0 0 

7070 DRTR 0 ^ 0 * © j> 0 0 

7080 DRTR 2 j. 17©, 128, 10, 1 ©2 

703© DRTR 36,3,85,160,1© 

7100 DRTR 125,36,9,125,16© 

7110 DRTR 1 © ^ 35 .. 36 > 9 .. 1 53 
712© DRTR 160,2,170,128,0 
713© DRTR © j> © .■ © j> © ji © 

7140 DRTR 0 j» © ^ © j 0 ^ 0 

7150 DRTR © .» © > 0 «» © .* © 

T 1 6© DRTR 0^©.. 0 ^ 0 > © 

7170 DRTR © 

7* 17-5 REM BALLOON EXPLOSION — 3 

7-1 30 DRTR 0 .« © .• 0 * © .» 0 

7130 DRTR 0,0,136,0,34 

7200 DRTR 34,32,136,136,136 

7210 DRTR 42, 170, 1 ^©.. 163, 153 

7220 DRTR 152,37,85,1©6,163 

7230 DRTR 221,8S,37,255,1©6 

7240 DRTR 1 63 > 255 .. S3 37 - 22 1 

7250 DRTR 106✓ 163 ^ 35. S3✓ 33 

7260 DRTR 1©2..106,17©,170,163 

7270 DRTR 34,34,34,8,136 

7280 DRTR 136 ^ © ^ 34 ^ © ^ © 

7230 DRTR 0,0 0 . © .. 0 

7-300 DRTR © a © .» © ^ © 

73©5 REM BALLOON EXPLOSION — 4 

7-31© DRTR 0,32 

7-32© DRTR 0,8, 136, 128,34 
733© DRTR 34,32,136,136,136 
7-34© DRTR 42, 170, 17©, 169, 153 
7350 DRTR 152,38,1©2,106,163 
7360 DRTR 85,88,37,119,106 
7-37-0 DRTR 169,255,88,37, 125 
738© DRTR 1©6 ^ 163 ^ 223. S3 ^ 37 
7-33© DRTR 85, 106, 163, 153, 152 

7-400 DRTR 33 102, 106, 170, 170 

7-41© DRTR 168,34,34,34,8 
7-42© DRTR 1 36 ^ 1 36 .. 2 34 .. 32 

7-43© DRTR ©,S^©^©^© 

7440 DRTR © > © 

7*445 REM BALLOON EXPLOSION — 5 

7-45© DRTR ©, 136,0,34 

7460 DRTR 34,32,8,136,136 

7*47-0 DRTR 34,34,34, 17©, 170 

7-43© DRTR 168,38, 102, 106, 163 

743© DRTR 153,152,37,143,234 

750© DRTR 169,223,88,38,125 

•7510 DRTR 106, 169,255, 152,33 

*7520 DRTR 117, 106, 163,87,88 

7*530 DRTR 38, 1 ©2 .. 106, 169, 153 

7*54© DRTR 152,42, 170, 170, 136 

7-55© DRTR 136, 136,34,34,34 

7560 DRTR 8,136,136,0,34 

7-5-70 DRTR 0^0,0.- ©,© 

7-533 REM CLOUD 2 

7*60© DRTR 0 

7610 DRTR © .■ © © j> © j> © 

7620 DRTR ©.•©.'©..©s© 

"7630 DRTR 0^©^©^©^© 

7640 DRTR © .. 0 , © .. 6© .. © 

765© DRTR 0,255,0,1,255 
7*66© DRTR 128,3,255, 192,3 
767© DRTR 255,132,15,255,24© 

7630 DRTR 63,255,252,127,255 

7690 DRTR 254,255,255,255,255 

7700 DRTR 255,255,255,255,255 

77 1 0 DRTR 255 ✓ 255 ^ 255 1 27 255 

7*7-20 DRTR 254,63,227,252, 15 

7730 DRTR 128,248,0 

7735 REM CLOUD 3 

7 - 7 - 4 © DRTR 0,60,0 

7750 DRTR 0,126,8,0,255 

7-76© DRTR © , © , 255 , 1 23 , 1 
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'FT''?’© DATA 
7*TS0 DATA 
7790 DATA 
7800 DATA 
7810 DATA 
7”S20 DATA 
7830 DATA 
T=*340 DATA 
7850 DATA 
7860 DATA 
7870 DATA 
7875 REM 
7880 DRTfl 
7890 DATA 
7900 DATA 
7910 DRTR 
7920 DRTR 
7930 DRTR 
7940 DRTR 
7950 DRTR 
7960 DRTR 
7970 DRTR 
7980 DRTR 
7990 DRTR 
3000 DRTR 
20000 
2©010 REM 
: 

20030 POKE 


255, 192, 1,255, 132 
3 255 ^ 22-4 ^ 3 .. 255 

22-4 v 7” , 255 ✓ 2-40 ^ 7” 

255,240,31,255,252 
63 ^ 255 252 .. 1 27=* ,, 255 

254, 255, 255.. 254, 255 

255,255,255,255,255 
255 255 ^ 255 ^ 255 ^ 255 

255 ^ 255 .. 255 .. 255 .. 1 27” 

255, 254, 31, 123.. 243 
0 

CLOUD -4 
14,0,0,31,123 
0 .« 33 .■ 240 > 0 ^ 33 
254,127,255,224 
127255 ^ 243 > 255 .. 255 
252, 255, 255, 254.- 255 

255, 255,255 , 255.. 255 

255,255,255,255,255 
254 ^ 255 .. 255 ^ 252 .. 127 
255,243,63,255,240 
S3, 255.. 123.- 31,255 
0,31,2S4,0,15 
252,0, 3, 240 ., 0 
0 , 0 , 0,0 


RESTORE MEMORY 
343 j. 4 : PR I NT " IT* = STOP 
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Death Valley Patrol 

Igor Tulchinsky 


0 REM *6&;*&&-469*9*;46&;*63*:46;*E&-*:*6&i*&;*&;*94€:*69*ite&&*6i46:469*6 

1 REM a* BERTH VflLLEV PATROL 3 +e 

2 REM * EV IQOR TULCHINSKV 9*e 

3 REM 9* <C> 1334 FANFARE HOUSE, INC- 346 

4 REM *6 BOX 3062, HOUSTON, TX 77253 346 

5 REM 1*6 346 * 3*6 3*6 *6 9*6 =+= 346 3*6 *5+6 346 *==+=*6 =46 5*6 9*69*6 3+€ *6 9*6 & 3*6346 346 346 *6 *6 9*6 9*6 * 

7” REM INITIHLIZATION 

S : 

3 POKE46, 60 = POKE52, 30 - CUR : GOSUB36000 
10 GOSUB30000:GOSUE32000:GOSUB31000:POKE 
54276^ 123 = Q=PEEK< 53278> +PEEK<53279> 

17 s - : 

18 REM MRIN LOOP 

13 

20 F'K=PEEK < 56320 > = POKE54273 3 = GS=GS- - 0 1 5 

s*eNM— - 02 

21 IFGS-INTCGSX. 1 THEHGOSUE 1 000 

22 IFCC1 RND3 > =2THENF‘OKE2041 -+■ I NT < RND C 8 > 9*63 
>,T(C1X300> +RND< @ > *2 : IEC1>3150THEN40000 

23 IF <REEK <53273>AND1 > = 1THENGOSUE33000 

24 IRCREEK < 53278> RND1 > = 1THENGOSUB34000 
23 I FF’K= 1 27THEN200 

30 IRC PKRND1 > =0THENDV=DV-- T : IFDVC- 1 0THEN 
DV=— 1 0 

40 IRC PKRND2 > =0THENDV=BV+ - 7* : I FDV> 1 0THEND 
V=10 

50 IRCPKAND4>=0THENDX=DX--7*:IRDX<-1©THEN 
DX=—1© 

60 IRCRKRNDS>*0THENDX*DX+- T = IRDX>1 0 THEND 
X= 1 © 

200 X=X+DX:V=V+DV:DX=DX+DXCX/26,V/24>:DV 
= DV+DVC X/26, V/24> : ROKE54273, 50 

21© IRX>30ANDX<244RNDV>50THENROKEV^ X : ROK 

EV+ 1 ^ V : POKE2040 , 3 C C 1 AND 1 > = C1*C1 + 1 : GOTO20 

215 IFHM=3THENTP=TP+3TCLV-1>:CR=CR*3 

220 IFX<30flNDNN=3THENTRP=RP+- 5 : GOTO250 

225 IRX<30RNDNM<3THENX=30 = DX «2 

223 IFX>244ANDNM<3THENX=244:DX=-2 

230 I RX>244ANDNM=3THENRP SS RP+ 1 : CR=CR+2 = GO 

TO250 

24© IFV<50ANDNn=3THENRP=RP+3:CR=CR+1 
245 I RVC50RNIiNM<3THENV«50 : DV«2 
25© IRNMO3THEN260 

254 SC=SC+ I NT < 36000/T I > 3*61 009*6 < 3—NK > 

255 I RT I C360009*sSGN < 3—NK > THENRR I NT M WPWWIWCTBI 
" TAB Cll)" SEBONUS : B SI" I NT < 36000/T I > 3* 1 0 ©* < 3 
—NK > 

256 IRTIC36000THENROKE54276^ 33 : FOR1 = 1TO1 
0© : ROKE54273, RNDC8>*100+150 : NEXT = ROKE542 
7*6 .. 123 

257 s * X=40 : V = 63 : GOSUB3 1 ©©0 - ROKEV ^ X = POKEV+ 1 

^ V '■ Q«PEEK C 53278 > +PEEK C53279 ) 

260 GOTO20 
397 : 

33S REM ADJUST RUEU GAUGE 

333 = 

1 ©00 ROKE55236+35+4034f < 20— I NT C GS > > .. 32 : I RG 

S<1THEN40000 

101© C2-C2+1 s IRC C2ANB3> 02THEN1030 

1 020 pA=?RHD <@>9*6 10 : BB=RND < S > 9*6 1 0 : EX < A A ^ BE > 

=DX < AA - BE > 9*2 : BY < A A ^ BE > =DV < A A ^ BB > 546 2 

1030 RETURN 

9997 

3333 REM HELICOPTER — 1 

3333 

10000 BATA 0, 15, 255 ^ © ^ 55 ^ 254 ^ 0 ^ 48^ 0 
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1 000 1 DATA 24© .. 43 ^ 0 / 48 ^ 62 ^ ©3 ^ 227 1 28 

1 00©2 DATA 63,224, 192, 1,255,224,0.255. 19 
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10003 DATA 8,127,128,0,60,0,0,0,0 

10004 DATA 0,0,0,0,©,0,0,0,0 

10005 DATA 0,0,0,0,0,0,0,0,0 

1000© DATA 0 a 0 .» 0 f 0 ., 0 ^ 0 -• 0 ^ 0 ^ 0 

1 0007 

10003 REM HELICOPTER — 2 

10003 _ 

1 ©0 1 0 DATA 255 ^ 1 32 ^ ^ 1 27 -• 1 76 0 ^ 0 -43 -• © 

10©1 1 DATA 6 © ^ 43 .. ©, 43 ^ 62 ^ ^ ©3 ^ 227.. 123 

10012 DATA ©3i224,132,1,255,224,0,255,13 

2 

10313 DATA 0,127,128,0,60,0,0,0,0 

10014 DATA 0^0^©^©.. 0^0^©^©^0 

10015 DATA 0,0,0,0,0,©,0,0,0 

10016 DATA 0 © .? 0 * 0 0 .• 0 -• 0 * 0 ■, 0 

100 17" 

10013 REM VICTIM — 1 

10013 

1002© DATA 0 ji 0,0,0, 0 * © 0 * 0 ^ © 

10021 DATA 0,28,0,0,62,0,8,62,0 

10022 DATA 0,28,0,0,28,0,0,127,128 

1 0023 DATA © 255 , 1 32 ^1^1 30 ^ 36 ^ 3 , 62 ^ 43 

10024 DATA 6 > 62 ^ 24 ^ 4 ^ 23 ^3^0^ 23 > © 

10025 DATA 0,. 54,0,0, 33,0,0, 133, 123 

10026 DATA 0 j 133, 128, © ., 193, 128, 1 ■■ 193, 132 

10027 

10023 REM VICTIM — 2 

10023 : 

1003© DATA © ^ 23 ., © ^ 12, ©2 12,6, 62 ^ 24 

10031 DATA 3,28,48,1,156,96,0,255,132 

10032 DATA 0,127,128,0,62,0,0,62,0 

10033 DATA © ^ 62 ^ © ^ © ., 23 ^ 0 .• 0 ^ 23 - © 

10034 DATA 0,119,0,17,193,196,31,0,124 

10035 DATA 12,0,24,0,0,0,0,0,0 

10036 DATA 0 «» 0 ^ 0 0 0 * 0 •, 0 * 0 

1 0037" :■ 

10©3S REM VICTIM — 3 

10039 

1004© DATA 0 _• 0 j 0 * 0 0 -■ © -■ 0 -* 0 

10041 DATA 0,28,0,0,62,0,0,62>0 

1 0042 DATA 0 .. 23 ^ © ^ © ^ 23 - © ^ 0 ^ 1 27" .. 1 23 

1 ©043 DATA © -■ 255 . 1 32 ^ 1 1 30 „ 36 3 ^ 62 -• 43 

1 ©044 DATA 1,1 3© , 24 , 0 , 252 ,3,0, 23 -■ © 

1 ©045 DATA 0 , 54 ,0,0.- 33 ,0,0, 1 93 , 1 23 

10046 DATA 0 , 193, 123,0, 193, 128, 1, 193, 132 

10047" : 

10043 REM VICTIM — 4 

10049 

1005© DATA 0 , 0 , 0 , © , 0 , 0 , © , 0 , 0 

1 005 1 DATA © , 23,0,0,62 ,0,0, 62 , 12 

1 0052 DATA © , 23 , 24 , © , 23 , 43 ,0,1 27" , 224 

10053 DATA 0,255,128,1,190,0,3,62,0 

10054 DATA 1,13© , © , 0 , 252 ,0,0, 23 , © 

10©55 DATA 0,54,0,0,99,0,0,193,128 

10056 DATA 0 , 193, 128,0, 193, 128, 1, 193, 192 

10057 * 

10053 REM VICTIM — 5 

10053 

10060 DATA ©,©,©, 0,0, 0,0,©,© 

10061 DATA 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 

1 0062 DRTfl 0 , 23 , © , 0 , 62 , © , © , ©2 , © 

10063 DATA 2,28,0,3,156,0,8,255,0 

10064 DATA 12,254,0,7,130,0,3,62,0 

10065 DATA ©, 3© , © , 0 , 53 , © , © , 1 13, 123 

1 0066 DATA 0,1 33 , 1 32 , 0 , 223 , 64 , 0 , 115,0 

10067" 

10063 REM VICTIM — 6 

10063 

1007*0 DATA 0 , 0 , 0 , © , 0 , 0 , 0 , 0 , © 

1007*1 DATA 0 , 0 , © -• © , 0 , 0 , 0 , 0 , 0 

10072 DATA © , 36 ,0,0, 24© , © , 6 , 243 , 0 

10073 DATA 12,120,0,12,28,0,7,255,0 

1007*4 DRTR 3,254,0,0,62,0,0,62,0 

10075 DATA 0,30,0,0,53,0,0,115,0 

1007"© nRTR 0, 193, 128,0,223, 128,0,115,0 

10077 

100-73 REM VICTIM — 7* 

10073 : 

10080 DATR 0 , 0 ^ 0 , 0 , 0 , 0 , 0 , 0 , 0 

10031 DRTR 0 , 0 , 0 , 0 , 0 , 0 , © , © , 0 

10032 DRTR 0 , 0 , © , 0 , 0 , 0 , © , 0 , 0 

10033 DRTR 0,0,0,15,0,0,63,192,0 

1 ©034 DRTR 255 , 224 , 0 , 63 , 255 , 1 23,31,131,1 
23 

10035 DRTR 6,1,128,6,0,0,138,0,6 

10036 DRTR 193,63,207,255,255,255,255,25 
5 ji 255 

10037 1 

10083 REM VICTIM — S 

10033 

1 0090 DRTR 0 , 0 , 0 , 0 , 0 , 0 , 0 , 3 , 0 
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10091 DATA 0.0,0/0,0,0,0,0,0 

10092 DATA 0 0 j* 0 > 0 0 0 0 js 0 „* 0 

10093 DATA 0/0,0, 15,0,0, 63 1 92 ^ © 

10094 DATA 255 > 224 ^ 0 S3 ^ 243,0,31,140 - 0 

1 0095 DATA S^S^0.,3..7".. 0^ 1 93 ^ 7"6 

1 0093 DATA 1 93 ^ S3 207" ^ 255 255 > 255 ^ 255 ^ 25 

5., 255 

10097" 

10093 REM LANDING DETECTOR 

10099 

10100 DATA 0 j> 0 ^ 0 01 .■ 0 j> 0 .■ 0 j> 0 ji © 

10101 DATA 0,0,0,0,0,0,0,0,0 

10102 DATA 0^0J|0^0^0^0^0^0^0 

10103 DATA 0,0,0,0,0,0,0,0,0 

10104 DATA 0,0,0, 192 0 3 ^ 192 ^ © ^ 3 

10105 DATA 0 j> O j> 0 j* 0 > 01 ji 0 10 j 0 * 0 

10103 DATA 0 j* 0 > 0 .• 0 0 , 0 j> 0 ^ 0 

10107 

10103 REM EXPLOSION CLOUD 

10109 

10150 DATA 0,126,0,1,255,192,3,255,240 

10151 DATA 3 ^ 255 ^ 240 > 7"254 ^ 243 ^ 30 , 49 > 243 

10152 DATA 123,199,30,255,126,127,254,11 

5 j> 33 

10153 DATA 252,243,159,123,127,124,55,12 

5,230 

10154 DATA 27,255,254,60,115,56,125,255, 

134 

10155 DATA 249- 255 > 252 ^ 124 * 255 ^ 153, S3 ^ 35 

, 1 24 

101 53 DATA 31,254 1 20 ^3.-1 35 -• 224 .,0^0^© 

29997 : 

29993 REM SPRITE INITIALIZATION 

29999 : 

30030 7=53248:SM=0=POR1=1228STO13030STEP 

4:SM=SM+PEEK<I>:NEXT=IFSM=9481THEN30010 
30005 RESTORE:FORI-0TO11:FORJ=0TO62=READ 
Q:POKE12286+I#64+J,Q:NEXT=NEXT 
30010 POKE2040,192 

30020 POKE204 1 ^ 195 = POKE2042, 195 = POKE2043 
195 

30030 T <02 = 194 : T C1> = 193 = T < 2 > = 193 = TC3)=20 
0 

30040 POKE2044, 202 = POKE2045, 202 : POKE204& 

. : pfiKFPR^I ~7 . opto 

30050 POKEV+39, 1 : POKEV + 40, 1 : POKEV+41 ^ 0 : P 
OKEV+42, 9 : POKEV+43, 3 = POKEV+44, 3 : POKEV+45 
3 

3O030 X=40:V=33:POKEV+46,11 

3O030 POKEV+29,16+32+64+123 

30090 POKEV+23,123 : POKEV+16,0:POKE53275, 
16+32+64 

30095 GS=10.9: DF = —- 095 : DX=2 : DV=-1 : S < 0 > = 1 
92:S<1>=193 

301©0 POKEV+21,14:RETURN 
30997- : 

30993 REM CRERTE BACKGROUND 

30999 

3 1 000 PR I NT " : POKE5328 1^3 = POK 

E53280,3 : POKEV+2 1 , © : POKE54276, 17- NM=© 
31005 NH=© = AG=AG#. 3 - DF=DF+- 1 : NK=0 : TI$="0 
00000" 

31010 POR1=1TO15 
31©2© PRINT "& 

" ; : POKE54273^ 255—1*10: NEXT 

3 1 03© PR I NT " ZSk 


31040 POKE2023,130 : POKE53295,9 

31050 C=6:E=S 

31030 FORA=1T033STEP3 

3 1 07"© GOSUB3 1 900 : E= I NT C R* 1 0 > : I FABS < E —D > > 
10THEN3107© 

31080 D=E : GOSUB31780 : NEXT 

3 1 03 1 GOSUB3 1 900 = R= I NT < R*4 > *3-*- 1 : B = 5 : C = 3 : 
D= 1 9 = GOSUB3 1 7"0© 

31082 PORI=A+5TO30 = Q = SINC IX4> *2+3 : FORJ = B 
■+-D—4—QTOB+D—Q : POKE 1 024-*- I +40* I NT 32 

31033 POKES4273^ RES < Q >*2 

3 1 034 POKE55296+ I I NT C J > *40 ^ 2 : NEXT : NEXT 

3 1 085 PR I NT " S3" TRB C31>; : POR I =©TO20 = PR I NT " 
fiTO llilllllifll" ; = NEXT 

31086 FORJ=20TO24 : PORI=31TOSS = POKE1024+I 
+J*4@,160 

3 1 ©87" POKE55296+ I +J*40 .. 2 : NEXT : NEXT 

3 1090 GOSUB31900 = POR I =©TO1 = POKEV+7^ 0 
3110© GOSUB31900 = F C I > = I NT C R*4 >*48+R*20-1 
1+40 s POKEV + 3 + 2* I , 0 : POKEV+2+2* I P < I > 

311 05 POKE204 1 -+-1 .. 1 95 = NEXT 

311©3 IPRES <P<0)—P C20THEN31090 

311 ©7" POKEV+21,14 

31110 PORI=0TO1 = Q=PEEK< 53279> : C=0 

31 120 POKEV+3+2*I ^ C : C=C+3 = POKE54273, 255— 

C 
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31130 Q=PEEK< 53279> : Z=SIN < 8 > #0+PEEK < 5327 
3>:IFZ=0THEN31120 

31 140 POKEV+3 + 2#I ^ C—1 1 : POKE2041 + I ^ 194 
31150 FORZ-l103©=Q=PEEKC53279>=NEXT : NEXT 
:POKE2043^194 

31155 POKEV+6^ 240 = POKEV+7^ 1©3 

311 ©0 POKEV+3 P<0> — 13 : FOKEV+9 .. REEK C V-4-3 > ■+■ 
5 

311 70 POKEV+ 10 / PC 1 > — 13 : POKEV+ 11/ REEK < V-+-5 
> -*-5 

31130 POKEV+12/REEK C V+6>—3 = POKEV+13/ REEK 
<V+7)+15 

31190 PQKEV+21/254 

3 1 200 Q=PEEK C 53279 > -*-S IN<8 T2 > : PS=PEEK C 532 
7^9 > ORPEEK < 53279 > ORPEEK C 53279 > 

312 10 PRiNysawMBisw 

31220 rr i nt ■■ a«BRSEsra ■■ 

31230 RRINT 1 'SaWMSDSUSJSSJ 
31240 POKEV^ X : PQKEV+1 ^ V 

31250 FORI=20X01©STEP—1=POKE1024+35+40*I 
^ 160: ROKE55296+35+40*I ^ © = NEXT 

31230 FORI=20TO20-GSSTER~1 : POKE1024+35+4 
0*1 j> IS© : POKE55296+35+40* I ^ ~F = PQKE54273I* 
1©:NEXT 

31265 IFF®!THENRETURN 

3127-0 POKE 1 024+35+40*8 S : POKE55296+35+40 
*3^ 1 

3123© POKE1024+35+40*22^ 5 = POKE55296+35+4 
0 * 22 / 1 

3 1 23© PR I NT •* £3" TAB C 33 > " KMatSCORE " 

31231 L_ V=L_ V -+- 1 

3 1 232 LV$«STR$ C L_V > - |_Vsf?=M I DS? C LV$ ^ 1 . LEN C L_V 
> —2 > 

3 1 233 CR$=STR$ < OR > = CR$=M I < CR$ 1 ^ LEN < OR 
4P>—2> 

3 1 234 PR I NT " »»»»iCa_EVEL : " LVTflE <16>" VRL 
LEV:"CR+TF+1 

3 1 235 FOR I =0X030 = POKE 1 ©24-1-24*40-1- I ^ PEEK < 1 
©24-1-I > + 128 : POKE55236+24*40+ I ^ 1 = NEXT 
3123S PRINT" Sa 

3 1300 gosub35000 = pr i nt " sawososj" " mmmmmmmmmmm* 

HKB^OET READY" 

31320 FORI=0TO1© • FORJ = 0TOS - DX< I ^ J> = <RND< 
3 > — . 5 > *DF : DV< I/ -J > = <RND C8>-.5>*DF 
31325 POKE54273/1*10+J 

31330 NEXT : NEXT : DG=DF/2 

3134© FORI=0X01© = FORJ=7TG1© : DX Cl/ J>®CRND 
C8>». 5 > *DG : DV < I -J > = C RND C © > — . 5 >*DG 
3 1 345 POKE54273 ^ J* 1 0-#- I 

3135© NEXT = NEXT 

31355 PR 1 NT 11 11 l»»»*li*»ili| 
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31S50 X =40 : V=63 = DX=4 : DV=0 : POKE54276/ 123 : 

POKEV+21 ^ 255 - RETURN 

31637 

31S33 REM CLEAR R HOLE 

31S33 

317-00 FOR I ®ATOA+C— 1 =POKE54273/ 1X3 : FORJ = B 
TOB+D—2 

317-10 POKE 1 024+J*40+ I ^ 32 2 NEXT : NEXT : RETUR 
N 

31837 

31333 REM CREATE R P3EUDORRNDOM NUMBER 
31333 

3 1 30© RP J =RP+ 1 = R=RBS CSINC RP > -+-S INC RP*2 > > R 
=R*10© = R=R—INT <R> : RETURN 

31997 

31993 REM SOUND INITIRLIZRTION 

31339 

32000 FOR I ®54272T054296 - POKE I .• 0 : NEXT 
320 1 0 POKE5423S / 15 = POKE54277 .. 36 = POKE5427 

3, 24© = POKE54276/ 17- : RETURN 
32337' : 

3233© REM SPRITE—BRCKGROUND COLLISION 

32999 

33000 IFPEEK< V+1 > >740RPEEKC V > >60THEN3307 
© 

33006 POKE54276. 33 = IFRBS C DX > >20RRBSC DV >> 

2THEN33080 

33310 RG=AG+10.2-GS-DX®1=IFRG>50THENPOKE 

54276/ 123 = V=V—3 : POKEV+1 ^ V = RETURN 
3304© GS®10.3:F=1=GOSUB31250=F=©:V=V—3:P 
OKEV+1 ^ V = DV®—1 = POKE54276/ 123 : POKEV+21 ^ 25 

4 

33045 DX= 1 - = —2 

3305© POKEV+2 1 .. 255 = Q®PEEK < 5327'© > +PEEK C 53 
279> : PS®PEEK C 53279 > ORPEEK < 53279 > 

330S0 P3 = P3RND254 ,RETURN 

33070 ZQ= < PEEK < 53278 > *©-i-S INC8> *0+PEEK C 53 
278>> : IFC ZQAND 1 > ®= 1 THEN33300 
3303© POKE54276^ 123 : POKEV+16/0 

3303© POKEV+14/ PEEK CV>-12 - POKEV+15/ PEEK C 
V-+- 1 > — 1 2 : POKEV+2 1 .. 254 

33100 FOR1 = 15TO1STEP—- 3 = POKEV + 46.. RND C8>* 
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255 - POKE5423 


15 : POKE54296/ RND<3)*5+I = POKE54273. 20+1 
33 1 1 © POKEV+ 14, REEK C V > —RND C 3 > *3 + 1.5 : POKE 
V + 15, REEK C V +15) -RND C © > *3-*- 1.5 = Q = 3 IN<3) : ME 
XT 

3312© POKEV+16,12©:POKEV+15, 

6,15=DX=0:DV=0:POKE54276,33 
3313© POKEV+21 > 255 = Q-PEEKC 53278>+PEEKC 53 
279> : X«4© ? V=65 = POKEV, X = FOKEV+1 V 
331-4© HH-NH+ 1 : I FNH=5THEN40000 
3315© RETURN 

33297 : 

33298 REM VICTIM RESCUE 

33233 : 

3330© Q=PEEK C 5327'© > *£© + 3 INC©) *0+PEEK C 5327 
8):2Z*Q : IFCQflNDl)=0THEN3340© 

33301 IFHX>3ORDV>3THEN33080 

33305 POKE54276 ^ 33 = POKE54273 17© : 2=3 INC8T 

33306 Q-PEEK C 5327*© > *©+S INC©) *0+REEK C 5327' 
8 )•22=0 

3331© IR < QflND16) = 16THENNM=HN+1 : PQKEV+3> 0 
•FOKEV+3© : IFCQRHD2> <>2THENSC=SC+10TCMM — 
MK ) 

3332© IRC QRMD32>=32THENMM-NM+1 • POKEV+5. 0 
: POKEV+1 1 > © : IRC QRND4 > 04THEHSC=SC+1© TCMM 
N K 

3333© IRC QRHD64> =64THENMM=NM+1 : POKEV+7, 0 
: 13*0: IRC QRNDS > OSTHENSC = SC+ 1 0 TC MM 

— MK ) 

33340 GOSUB3500© = Q=PEEKC 5327© >+PEEKC 5327 
‘ POK E54276 * 1 23 : P3=3 IMC8) *0+PEEK C 5327© > 
V-V-DV-3 : POKEV+ 1 jt V = Q-PEEK C 5327© > -»-R 
EEKC53279):DV=-3:RETURM 
33-40© RETURM 

33997 = 

33998 REM SPRITE—SRRITE 

3>-3IE9 £? 23* • 

3-400© Q-PEEK C 5327© > 

3-4© 1© IRC QRND2 > =2THEHQ= 1 © : NK= 

5 = GOSUB35060 : GOTO33310 

itg§IuI^ggg“3^T35gl2§ =3,s: NK=NK+1: sc=sc+ 

!^GOSUE35000?GOTO33330 **" 3 = NK-WK+ 1 : SC= 

3-40-4© RETURM 

34997 

34998 

34999 

35000 

> 

3501© 

35020 
35997 
3533© 

35333 
3600© 

36008 


COLLISION 


S NK+1:SC=SC+ 


= SC+ 


REM RRIMT SCORE 

S$*=STR$ C SC > : S^ = R I GHT$ C S3? ^ LEM C S^ > — 1 

* R " 0 " -fr-SiS : GOT0350 1 0 
RR I MT SaWOWM" TAB C 33 > " =4" S$= = RETURM 


REM 


RRIMT TITLE SCREEM 


RR I MT ■’ rXs&SOS&SOO* SU£leg- 
RR I MTTflB C 3 ) ’• & 


POKE53281 


36010 RRINTTfiBC3) 1 


DEATH VALLEY PATROL 


RR I NTTAB C 3 > Si 

RRINTTABC17)"S 
PRIMTTABCID": 


BY MM " 

IGOR TULCHINSKY 




36012 
MDM" 

36020 
36030 
•B fljBBM 11 

36040 RRIMTrABC6)"CC) 1984 FANFARE 
' INC. ■* : GGSUB30000 : GOSUB32000 

j P 9 K S^ 4 ?76 , 33 : POKEV+3 , 72 : POKEV+5, 72 
.1 r : p QKEV +23, 255 : POKEV+23, 255 

3S0S0 POKEV + 2 -• 110- POKEV+4 * 1 ©5 : POKEV+6 * 22 


HOUSE 


■ 5 = POKEV+42, 10 


36065 PUKEV+40,0 : POKEV+41 
36070 POKEV+21,255 

SS91?^, ROR I==1 T075 : POKE204 1 +RMD C © > *3 * 1 94+R 
ND C © > *s-4 = Q=S INC©) : POKE54273 * RND C © > *20: NEX 


POKEV+3 j> © : POKEV+5 .• 0 : POKEV+7, 0 : POKE 
© : RETURM 

ENDING 


36030 
54236, 

33337 
3333© REM 
33333 : 

-40000 POKE54276 -■ 33 : ROR 1 = 1 ©TO 1 00STEP5 : ROR 

, ?«£ +1 ® Tl ^ II ®* r ^ P —1 : POKE54273, I+.J : NEXT : NEXT 
-40010 POKE54296 , 0 : POKEV+2 1 * © 

-40015 ROKE532© 1 , © 

I FPEEK C 56320 ) = 1 27THEN40020 
-40030 RUN 1© 
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Mission: 

Tobor 

Program 


605 PRINT' 

WKO 1904 FANFARE HOUSE, INC - 3=8*' 
© 1 0 FORT = 1 TOS : X3? < T > = " : 23? < X > = " 

: NEXT 


: F=FRE< 0 > 


|S20 EORX= 1X0255 : POKES+5, X = POKES + 4, SI = FOR 
V=a 1 X07 • NEXX = POKES+4, S0 : NEXX : GOXO740 
700 PR I MX " 58" = FORT= 1 TOS : PR I MXR I GHT$ < Xs* CX> 
„ : NEXX = POKE53265, REEK < 53265 > OR64 

720 PR I NX " - GOSUB2000 

730 FORV= 1 XO© : RR I NXR I GHX$ C S3? < V > , L > : NEXX : 
POKE53265, PEEK C 53265 > AND131 : RETURN 
S3© f 

737 ^EM SCROLL- IN3TRUCTI OHS MESSRGE 
740 FORX=0XO24 ; POKES+L,0;NEXX 

750 POKES,240:POKES+1..33:POKES+5,©:POKES 
-♦-SS^ 104 : POKES + 23 , 1 : POKES+24, 73 
770 FORQ—1X07=FORM—1XO©© 

©00 fl$=riID3CV3c;Q> -• N ^ 1 > : POKES + 4 , 129 : IFfl$* 

"4*"XHENN-60:Q = 2 ■ GOXO840 

©20 RR I NX''$aHI*a>aKI*afeD«Ua]l«IBr a : OOSUB200© 

©30 RR Z NXXRB C 3© > ; R$ = RR I NX " ■■■■■■■■■■■■■ 

■ ■■■■■■■■■■■■■■■■■■■■■■■■■■I" i CHRT < 20 > 

©40 POKES+4, 12© = F0RX=1X03 = GOSUB2000 - NEXX 
X, N, Q : FORX = 1 XO© : V3? CT)*" " : F = FRE C 0 > : NEXX 


©50 GOSUB2000:GOXO850 
9©2 

903 REM READ SRRIXE DATA IMXO MEMORV 

904 

2000 RERDfl : IFR=256XHEN3500 

2 1 00 ROKE 1 292S+U ^ R : U=U-*-1 : RETURN 

3101 

3103 REM RUN RRRX 2 

3104 

3500 FORCC*1344X01©23 : ROKECC .. 32 = NEXX 

35 1 0 RR I NX " 3W&SD9IK UsIegjQlRli* DtSWSI ’ ’ X RE <10)" B V CHRRL 

ES MOXX, JR-“ 

3600 CLR : POKE52, 12© = POKE56, 126 

3610 POKE631 ^ 145 = POKE632, 145 : POKE633, 13 : 

ROKE634, IS : POKE635, IS = POKE636, ©2 
3620 POKE63S, ©5 ? POKE638, S© : POKE633, 5© = RO 
KE640,13:POKE198,10 

3650 PR I NX '* rflE=SDSt«IBWqa^^ ■■ CHR$ < 34 > ■■ M I 

SS I ON " CHR$ < 34 > ,a > ©H" = NEW : END 

4900 

4901 REM SRRIXE DRTfl 

4902 

5000 DflXR 47 ^ 255 254 ^ 63 ^ 255 .. 255 .. ©3 255 ^ 2 

55 ^ 53 ^ 255- 255. 53.. 250, 131,53 

500 1 DRXR 239 .. 239 ^ 53 235 . 1 75 ^ 53 ^ 23© > 239 

53, 235 , 1 S5 j. 245, 239, 239.. 53, 250 

5002 DRXR 191,53 ^ 255 ^ 255 ^ 53 ^ 255 ^ 255 ^ 53 .. 2 

39 ^ 239 ^ 53 239 > 239,53 231 ^ 231 

5003 DRXR 53 ^ 255 ^ 255 ^ 63 ^ 255 ^ 255 ^ 63 .■ 255 ^ 2 

55 . 47 . 255 254 .3^1 92 . 60 ^ 0 

5004 DRXR 47, 255 ^ 254 ^ 63 ^ 255 ^ 255 ©3 ^ 255 ^ 2 

55 > 5© .. 255 ^ 255 ^ 53.. 25©, 191,53 

5005 DRXR 239 ^ 239 .. 53 ^ 235 ^ 1 75 ^ 53 ^ 23© ^ 239 

53 ^ 235 ^ 175^ 245 .. 239 ^ 239 ^ 53 25© 

500© DRXR 191,53 ^ 255 ^ 255- 53 ^ 255 ^ 255 ^ 53 ^ 2 

39 ^ 239 ^ 53, 239 239..53 ^ 231 ^ 231 

500S DRXR 53 ^ 255 ^ 255 ^ 63 ^ 255 .. 255 -■ ©3 .. 255 > 2 

55 ^ 47, 255 > 254 ^3^192 .. 6© ^ © 

500© DRXR 47 ^ 255 ^ 254 .. 63 ^ 255 „ 255 .. 63 j. 255 ^ 2 
55, 5© * 255, 255, 5© ^ 250, 191,53 

5009 DRXR 239 ^ 239 ^ 53 ^ 235 ^ 1 75 ^ 53 23© 239 ^ 

S3 ^ 235 ^ 1 75 ^ 245 ^ 239 239 ^ 53 , 25© 

5©10 DRXR 191,53. 255. 255 ^ 53 ^ 255 ^ 255 ^ 53 ^ 2 
39, 239, 53, 239, 239, 53, 231 23 1 

50 1 1 DRXR 53 ^ 255 ^ 2S5 ^ 63 ^ 255 255 ^ 63 ^ 255 . 2 

55 ^ 47^ 255 > 254 >3^192 ^ 6© ^ © 

50 1 2 DRXR 47 . 255 ^ 254 ©3 . 255 ^ 255 63 ^ 255 .< 2 

55,5S,255,255,58,250,191,5© 

5©13 DRXR 239 ^ 239 ^ 53 ^ 235 ^ 175, 53 ^ 23©. 239 ^ 
53,235,1S5,245,239,239,53,25© 

5© 1 4 DRXR 191,53 ^ 255.255 53 ^ 255 ^ 255 ^ 53 ^ 2 

39 ^ 239 > 53 ^ 239 239 ^ 53 > 23 1 > 23 1 

5© 1 5 DRXR 53 > 255 ^ 255 ^ 63 .. 255 ^ 255 63 j. 255 2 

55, 4S, 255, 254, 3 ^ 192,60, © 

5©16 DRXR 47^ 255 ^ 254 ^ 63; 255 ^ 255 ^ 63 ^ 255 ^ 2 

55, 5©, 255, 255, 58, 250, 191 ^ 5© 

5©1S DRXR 239 ^ 239 ^ 5© ^ 235 ^ 175^ 53 ^ 23© ^ 239 ^ 

53 j 235,1^5, 245, 239,239, 53, 250 

5© 1 S DRXR 19 1,53 ^ 255 ^ 255 .. 53 ^ 255 ^ 255 ^ 53 ^ 2 

39 .. 239 ^ 53 ^ 239 ^ 239 -■ 53 ^ 23 1 ^ 23 1 

50 1 9 DRXR 53 ^ 255 ^ 255 63 ^ 255 ^ 255 ^ 63 255 ^ 2 

55 ^ 47, 255 ^ 254 j. 3 ^ 1 92 ^ 6© ^ © 

5020 DRXR 4r,255,254,63,255,255,63,255,2 
55 ^ 5© ^ 255 ^ 255 ^ 5© ^ 25©,19 1,5© 

502 1 DRXR 239 ^ 239 ^ 5© ^ 235 1 75 ^ 5© ^ 23© -■ 239 ^ 

53,235,1S5,245,239,239,53,25© 

5022 DRXR 191,53,255,255,53,255,255,53,2 

39,239,53,239,239,53,231,231 

5023 DRXR 53,255,255,63/255,255, 


63,255,2 
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- 255 .■ t>3 -• 255 .* 2 


55 * 47" 255,254, 3 .. 192, 60, © 

5024 DATA 47^ 255 ^ 254 .. 63.. 255 , 

55 ^ 58 .. 255 -• 255 ^ 53 ^ 25© , 191,53 

5025 DATA 233 ^ 233 -■ 53 .. 235 > 1 75 .■ 53 .. 233 ^ 233 > 

53 * 235, 175, 245 ,. 239, 233, 53, 25© 

5026 DATA 131,53 ^ 255 255 .. 53 255 255 .■ 53 .. 2 

39 , 233 > 53 ^ 239 ^ 239 .. 53^ 231 ^ 231 

5027 DATA 53,255,255,63,255,255,63,255,2 

55, 47, 255,254,3 ^ 192, 6©, © 

5023 DATA 47 ^ 255 ✓ 254 63 > 255 .. 255 .. 63 255 . 2 

55 ^ 53 .. 255 > 255 .. 53 ^ 25©,191,53 

5029 DATA 233 .. 233 .. 53 .■ 235 .. 1 7"5 .. 53 -■ 233 -■ 233 

58, 235, 175, 250, 233, 239, 53, 25© 

5©30 DATA 131,53- 255 255 .. 53.255 .. 255 > 53 .. 2 

33 ^ 239 ^ 53 ^ 233 233,53.23 1 ^ 23 1 

5©3 1 DATA 53 ^ 255 .. 255 63 255.255 .. 63 ^ 255 2 

55 ^ 47> 255. 254 ^ 3/ 132 * 6© .. © 

5032 DATA 47" ., 255,254 63.255 .. 255 , 63 -■ 255..2 

55 53 255 255 .. 53 25© , 191,53 

5033 DATA 239,239,58,235,175,53,233,239, 
58,235,175,250,233,239,53,250 

5©34 DATA 191,53 . 255 255 . 53 , 255 -■ 255.53.2 

39 > 233 .. 53 233 ^ 233 ^ 53 .. 23 1 ^ 23 1 

5035 DATA 53 255 ^ 255 ^ 63.255 .. 255 -■ 63 - 255 .. 2 

55 .. 47^ 255j.254 .,3^132 .. 6© © 

5036 DATA 47" ^ 255 .. 254 63 .. 255 .. 255 63 ^ 255 2 

55 58 ^ 255 ^ 255 ^ 53 ^ 25© , 191,53 

5037" DATA 233,233, 53,235, 175,53,238, 239, 

58,235,175,250,239,239,58,25© 

5038 DATA 191,53 ^ 255 255 -• 53 -■ 255 ^ 255 .. 53 .. 2 

33, 239, 53, 239, 233, 53, 23 1 ^ 23 1 

5039 DATA 53 .. 255 - 255 .. 63 .. 255 -■ 255 .. 63 .. 255 .. 2 

55 ^ 47" ^ 255 ^ 254 ^3^1 32 ^ 6© -• © 

504© DATA 47 ^ 255 ^ 254 .. 63 .. 255 .. 255 63 255 ., 2 

55, 53 255, 255, 53, 25©.. 191,53 

5©4 1 DATA 239 233 ^ 53 .. 235 .. 1 7"5 .. 53 .- 233 .. 233 ^ 

53 ^ 235 ^ 1 7"5 .. 25© ^ 233 ^ 233 .. 53 „ 25© 1 

5©42 DATA 131,58,255,255,58,255,^55,53,2 

33 233 ^ 53 ^ 233 ^ 233 ^ 53 .. 231 ., 231 

5©43 DATA 53 y 255 ^ 255 .. 63 255 . 255 .. 63 ^ 255 ^ 2 

55 -■ 47" .. 255 .. 254 ^3^1 92 ^ 6© .. © 

5044 DATA 47,255 ^ 254 ^ 63 > 255 ^ 255 .• 63 ^ 255 .■ 2 

55, 53, 255, 255, 53, 250, 131,58 

5045 DATA 233 ^ 233 ^ 53 ^ 235 ^ 1 7"5 ^ 53 ^ 233 ^ 233 ^ 

53, 235 j. 1 7"5 .. 250, 233, 239, 53, 25© 

5©46 DATA 191,53 ^ 255 ^ 255 > 53 255 ^ 255 ^ 53 ^ 2 

33 ^ 233 ^ 53 ^ 233 ^ 233 ^ 53 ^ 231 ^ 231 

504 DATA 53 ^ 255 -■ 255 ^ 63 ^ 255 ^ 255 > 63 ^ 255 ^ 2 

55 , 4 <■" , 255,254,3 , 1 S*2! , 60 , y 

5043 DATA 47,255,254,63,255,255,63,255,2 

55, 58, 255, 255, 58, 25©.. 191,53 

5049 DATA 233 233 ^ 53 ^ 235 ^ 1 7"5 ^ 53 .■ 238 ^ 233 ^ 

58,235,175,250,239,239,58,25© 

5©5© DATA 131,53 ^ 255 .. 255 ^ 53 ^ 255 ^ 255 ^ 53 ^ 2 

33 ^ 233 ^ 53 ^ 233 ^ 233 ^ 53 > 231 ^ 231 

5©5 1 DATA 53.255 ^ 255 63 ^ 255 ^ 255 ^ 63 ^ 255 ^ 2 

5* 5 , 4 f’ , 2 5 5 , 2 5 4 , o , 1 9 2! , t> 0 , 0 

5©52 DATA 47" ^ 255 ^ 254 ^ 63 ^ 255 ^ 255 ^ 63 ^ 255 2 

55, 53, 255, 255,53 ^ 250, 191,53 

5053 DATA 233 ^ 233 ^ 53.235 > 1 7"5 ^ 53 > 233 ^ 233 . 

58 a 235, 175, 25©, 239,239, 58, 25© 

5054 DATH 131,58,255,255,58,255,255,58,2 

33 ^ 233 ^ 53 ^ 233 ^ 233 ^ 53 .. 23 1 ^ 23 1 

5©55 DATA 53 ^ 255 ^ 255 ^ 63 ^ 255 ^ 255 ^ 63 ^ 255 ^ 2 

55 ^ 47^ 255 ^ 254 ^3^132 ^ 6© ^ © 

5056 DATA 63 ^ 255 ^ 255 .- 63 ^ 255 .. 255 ^ 63 ^ 255 ^ 2 

55 ^ S3 > 255 ^ 255 .. 53 .. 25© , 131,53 

5057" DATA 233 > 233.53 ^ 235 ^ 1 7"5 , 53 ^ 233 ^ 233 ^ 

53 ^ 235 ^ 175^ 25© ^ 233 ^ 233 ^ 58 ^ 25© 

5055 DATA 191,58,255,255,53,255,255,58,2 

33 ^ 233 -■ 58 ^ 233 . 233 . 53.23 1 ^ 23 1 

5053 _ DATA 53 ^ 255 ^ 255 , 63 ^ 255 ^ 255 ^ 63 ^ 255, 2 

55,63,255,255,3,132,&©,© 

5©6© DATA ©^©^0>0^©^©^©^©^0^©^0^©^©^0^©.. 

© 

5061 DATA 0,0,0,0,0,0,0,0,48,201,128,250 

,233,236,58,25© 

5062 DATA 191,53 ^ 255 255 ^ 53 > 255 .. 255 ^ 53 ^ 2 

33 ^ 233 ^ 53 ^ 233 .. 233 ^ 53 23 1 -■ 23 1 

5063 DATR 58 ^ 255 ^ 255 ^ 63 ^ 255 ^ 255 ^ 63 ^ 255 ^ 2 

55, 47, 255 , 254, 3 ^ 132,6©.- © 

5©64 DATA 0,123,0,0,66,0,0,38,128,0,16,0 

j> 1,3, 1 28 , 1 

5©65 DATA 24 ^ 123 ^ © ^ 66 ^ © ^ 4 ^ 66 ^ 32 ^ 2 ^ 36 ^ 64 ^ 

1,36,128,8,123 

5066 DATA 16, 63, 18, 34 ^ 66 ^ 3 ^ 66 ^ 33 ^ 36 ^ 132 ^ 

2© ^ 7"4 ^ 4© ^2^1 45 ^ 64 

5067 DATA 1,8,128,0,0,0,0,0,0,0,0,0,0,0, 

© .» © 

5063 DATA 0,0,0,0,0,8,0,129,0,0,66,0,0,9 

3128, 1 

5063 DATA 8,128,1,24,128,©,66,0,4,66,32, 

2 ^ 36 ^ 64 ^3^123 
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Mission: 

Tobor 

Program 


SQ'P’© DATA 16,68, IS, 34,66, 8, 66, 33, 96, 132, 
2. 145,64, 1.8. 12© 

DATA 0.0. 0.0. 0.0.0.0.0.0. 0.0. 0.0.0. 

0 

507^2 DATA Q, @, @, 0,0, @, 0,4© .0.0. -4© . © . 0 . 4© 
. 0 . 0 

5073 DATA 48,0,0,48,0,0,48,0,0,252,0,3,2 
55,©.255,171 

5074 DATA 252 , 131,255 . © . © , 252 .0.0. 0.0.0. 
0 . 0 . 0 . © . 0 

5075 DATA 0.0. 0.0. 0.0. 0.0. 0.0. 0.0.0.0.0. 
0 

5076 DATA 0,12,0,©,14,0,0,14,0,0,12,0,0, 
12,0,0 

5077 DATA 12,0,0, 12,0,0,60,0,0,255,0,0,2 
51,0,255,251 

5078 DATA 0,@,251,0,@,255,0,0,60,@,0,12, 
0.0.12,0 

5079 DATA 0,12,0,0,12,0,0,14,0,0,14,0,0, 
12,0,0 

5080 DATA ©. 1 7 s1 © .0.0. 4© .0.0. 4© .0.0. 4© , © , © 
.. 4© .0.0 

5081 DATA 48,0,0,48,0,0,60,0,0,255,0,0,2 
39,0,0,239 

5082 DATA 255 . © . 238 .-©,©, 255 . © . © . ©0 .0.0.4 
8,0,0, 48 . 0 

5083 DATA © 4© . © . © . 4© , © , © , 4© , © , © , 4© . © , © . 

176, © .» 0 

5084 DATA ©,0,12,©,0,12,0,0,56,0,0,56,19 
2,0, 1 32 -■ 4© 

5©S5 DATA © . 1 32 . 12,3,0,3,3,0,0, 252 , © . © . 2 
52,0,0,236 

5086 DATA 0,0,252,0,0,252,0,3,0,0,3,0,0, 
12,0,0 

5087 DATA 12,0, ©, 48, ©, 0, 48, ©, ©, 224, ©, 0,2 
24,©,©,© 

5©©© DATA 48,0,0,48,0,0,44,0,0,12,0,0,3, 
© ,. 3.3 

5033 DRTR 0,12,0,132,48,©,192,192,0,63,0 
, © , 63 . © . © . 53 

503© DRTR ©,0,63,0,0,63,0,0,0,192,©,©,19 
2,0,0,48 

5©31 DRTR 0,0,48,0,0,12,0,0,12,0,0,11,0, 
0,3,0 

5032 DRTR 0,0,3,0,@,11,0,0,12,©,©,12,0,0 
. 4© , © 

5033 DRTR 0,48,0,0,192,0,0,192,0,63,0,0, 
63, © . © .* 53 

5084 DRTR 0,0,63,0,0,255,0,0,192,132,3,0 
. 4© .3.0. 12 

5035 DRTR 12,0,3,44,0,0,48,0,0,48,0,0,0, 
© . © . © 

5036 DRTR 224,0,0,48,0,0,12,0,0,12,0,0,3 
,0,0,3 

5097 DRTR © , © . © . 132,8,8, 192,0,0,63,8,8,6 
3,8,0,53 

5098 DRTR 0,0,63,0,0,63,0,0,132,132,3,0, 
192,12,0,4© 

5033 DRTR 48,0,48,0,0,12,0,0,14,0,0,3,©, 
0,3.0 

510© DRTR 0,0,0,0,20,0,2,170,128,2,170,1 
28, 1 , ©5 . 64 , 2 

5101 DRTR 170,128,1,85,64,2,170,128,14>1 
7=-0 . 1 7*6 . 254 . 1170 . 131,14, 1 T”© 

5102 DRTR 176,2,170,128,1,85,64,2,170,12 
©.1,35,64,2,170,12© 

5103 DRTR 2,170,128,0,20,0,0,0,0,0,0,0,© 
,0,0,0 

5104 DRTR 15,255,254,172,0,1,140,15,241, 
142,106,177,140,79,177,172 

5105 DRTR 73,177,12,64,161,12,176,33,40, 

1 SS .. 33 . 1 6© 1 7^© , 161,0, 1 8© 

5 1 ©6 DRTR 65 , © , 112, ©5 , © , 64 , 2 , 255 . 255 . 254 
,136,123,50,136,128,242 

5 1 07 DRTR 1 33 , ©5 , 1 34 , 1 4© . © , 245 , 1 43 , 255 , 1 
37, 128, 0,2, 170, 1 T"© , 170, © 

510© DRTR 0,0,0,0,0,0,0,©,0,2,17©,128,1© 
* 170, 160, 42 

5 1 03 DRTR © ■ 1 6© . 42 , 2©4 , 1 6© . 1 7=-© . 22 1.1 7 s -© . S 
5.221,85.170.221.170.©5.221 

511© DRTR ©5.170.17©.170.42.170.168.42.1 
7-0 . 168. 1©. 1 7=-© . 160.8. 170.32 

5111 DRTR S.©.32.32.©.©.32.©.S.12©.©.2.1 
2©.0.2.0 

5112 DRTR 0.0.0.0.0.0.0.0.0.12.0.132.51. 
51.48.4© 

5113 DRTR 252.43.15.223.132.©.220.0.0.22 
0.0.0.220.©.©.252 

5114 DRTR 0.0. 0.0. 0.0. 0.0. 0.0.0.0. 0.0.0. 
© 

5 115 DRTR 0.0. 0.0. 0.0.0.0. 0.0. 0.0. 0.0.0. 


0 

5116 DRTR 3,255,0,3,171,0,0,252,0,0,48,0 
. 0 . 43 . 0.0 
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5117 DRTR 48-0,0,43,0/0,43,0,0,48,0-0,48 
, 0 ^ 0 , 4S 

5113 DRTR 0,0.48.0.0/48.0,0,48,0,0.48.0. 

0 , 43 , 0 

5113 DRTR 0,48,0.3,255/0,3,255,0,3,255,0 
, 0 , 136, 0,0 

5120 DRTR 3,255,0,3,171,0,0,252,0,12,48, 
132,51,51,43 , 43 

5121 DRTR 252 , 43, 15, 223 , 132 , © , 220 , © , 0 , 22 
0,0,0, 220 , 0 , 0 , 252 

5122 DRTR 0,0,48,0,0,48,0,0,48,0,0,48,0, 
0 , 43,0 

5123 DRTR 0,48,0,3,255,0,3,255,0,3,255,0 

, 0 , 138 , 0,0 

5 1 24 DRTR 3 , 255 ,0,3, 171,0,0, 252 ,0,4, 43 , 6 
4,17,49,IS,16 

5125 DRTR 34,16,5,117,84,0,116,0,0,116,0 
,0,118,0,0,34 

5128 DRTR 0,0,43,0,0,43,0,0,43,0,0,43,©, 
0,43,0 

5127 DRTR 0,43,0,3,255,0,3,255,0,3,255,© 

, 0 , 138 , 0,0 

5 123 DRTR ©,©,©, ©,©,©, ©,©, 0,0, ©,©, ©,©,©, 

180 

5 1 23 DRTR 0,0,30 , 1 63 , © , 1 7*5,255 ,0,2, 1 70 , 1 
70,©,255,230,1,35 

513© DRTR 213,0,255,230,2,170,170,175,25 
5,0, 3© , 1 88 ,0,1 8© ,0,0 

5131 DRTR 0,0, ©,©, ©,©, 0,0, 0,0,0,0,0,0,0, 
©, 258 


© REM ****:********i*:*:**&**'***-***;«!**e*&**:4E 

1 REM *6 MISSION: TOBOR < P ART 2> * 

2 REM BV CHRRLES MOTT, JR. 3*6 

3 REM * <C> 1384 EANEARE HOUSE, INC- 3*6 

2 RE H 3+6 BOX 3082 HOUSTON, TX 77253 3*6 

5 0 REM 3*634e3*€3*e3fe3te34€3*E3*€34€3*63«63463tE9*E34e3*€3t€3463t63463*63t63t63t€3»E3«6S9*63*3* 

2© REM INITIRLIZRTION 

3© = 

SS^ :D 2X? V !2y^. RE R 1 RED ! -■ JBN I TOR , CRB I N BOV , C 
92 K ^E5122Xf^ SERGE:RMT ' LIEUTENANT, captain 
45 DRTRGENERRL,SUPREME COMMODORE 
5© EORT=©TQ3 = RERDR$ : 04? < T > = Aa|? : NEXT 
3© DIMDRC16) , EG < 16 > : R = © : PI — 1 : F*S—202 s P 1 =2 
20:RE-231:81=54272 

10© 3C=1©24 : MV*1©0 : MX=100 = V=53243 : JS=307 

2 : SI=204© = 82=2041 : S3=2042 

103 84=2043:85=2044:86=2045:87=2046:SS=2 

047:BR=53280:BK=53281:PH=9:RP=9:U=12 
105 EORK=0TO15 
107 RERDDR<K>:NEXT 

127 POKEV+28,255:POKEV+37,2:POKEV+38,0:E 
ORT=0TO7:POKEV+39+T,1:NEXT 

1 3© DRTR0 , 1,5, 0,7, 3,6, 0,3,2, 4, 0,0,0,5,0 
140 GOSUB300 : GOSUB2000:POKEV+21,245 
1 44 

145 REM MAIN CONTROL. LOOP 

1 46 

147 GOSUB2300 

150 GUSUE500 : ED=ED+U:IEED>255THENED*MV:E 
G C 2 > =© : POKEV+21 , PEEK < V+21 > AND C 255—3 > 

1 6© POKE53287 , — 73*6 < JVO0 > : ONDR < JV > GOTO 1 30 
,13©,200,210,220,230,240,25© 

17© P1=22©:GOTO330 

IS© riV=MV+RP : PI =22© : POKE54273 , 1© : GOTO330 
13© MV=MV+flP:MX=MX+RP=PI=225 : POKE54273,5 
0:GOTO330 

200 MX=MX+RP : PI=222 = POKES4273, 12 : GOTO330 
21© MV=MV—R P : MX=MX+RP : PI=224 : POKE54273, 2 
0 = GOTO330 

220 MV=MV—RP : PI=220 : POKE54273, 15 = GOTO330 
23© MV = MV —RP = MX = MX—RP = P1=223 : POKE54273, 1 
1 = GOT0330 

24© MX=MX—RP : P1=221 = POKE54273, 3 = G0T033© 
250 MV«MV + RP : MX=MX —RP = P1=226 : POKE54273, 3 
:GOTO330 

330 MX=MX+1 = MV = MV—1 = IEMX>255RNDEG< 1 > =0TH 
ENPOKEV+ 16, PEEK < V-+ 16> OR 1 : MX = 0 = EG < 1 > =5 
33 1 I EMXC0ANDEG < 1 > =5THEHPOKEV+ 16, PEEK < V-*- 
16>AND<255—1 > = MX=255 : EG< 1 > =© 

332 POKES I-»-4, 123: I EMV> 1 50THENMV® 1 50 

333 IEMV<42THENMV=42 

334 IEMX<15RNDEG < 1 > =0THENMX=15 

335 IEMX>65RNDEG< 1 > =5THENMX = 65 

400 POKES1 , PI : POKEV+4, R = R=R+PH: IER>2550R 
RC©THENPH = — PH : R=R+PH : GOTO420 
41© GOTO430 

420 IPEG < 3 >=5THENPS=PS—PI : EG < 3 >=5 : IEPSC2 
02THENPS*202:VL=VL+1:GOSUB3200:PS=203 
423 POKES8,PS 

425 IEEC < 3 > =0THENP3=PS+PI : POKES©, PS 
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427 I FFG C 3 > flHDFG < 3 > RNDRCPH+ 1 RNDFG < 1 © > THE 
NPOKES3 -■ 23 1 : EG <9 > — © = EG < 3 > =0 = EG O0> =© 

423 I EEG< 3 > RNDFGC9>RNDR>< 254+PH>THENFOKE 
S3, 233 : EG< 18>=5 = REM REDD ROBOT 

43© I EPS>2 1 6THENGOSUE90© PS=202 = R=© = GOTO 
127 

435 IFNV>120RNDEG< 2 > THEHEG < 3 > =5 

437 IEEG <&> THENPOKEV+21 .. REEK C V+21 > OR2 : RO 

KEV + 2BP = ROKEV+3^ 12© 

433 IFFG C 3 > THENER=BR + U+4 = IFBP>255THENBP= 
© = POKEV+16, REEK < V+16)OR2 - PGKEV+2^ BR = EG < 7 
>—5 = GOT0443 

433 IEEG < © >RNDBP>< MX—1©)RNDEPCC MX+10)RND 
MV>110RNDFG<1>—EGC7)THEHFOKES1,219=GOSUB 
2©0© 

443 IEEG < 3 > RNDFG < 7 > RHDER>31THENGOSUB1©0© 
: POKEV+ 16, REEK < V-*- 16) RND < 255— 2 > 

444 IEMV =150THENROKES1,21S=GOSUB20©© 

445 IFFG < 2)THENGOSUB95© 

45© F'OKEV , MX = ROKEV+1 ^ MV = ROKEV+7, ED : I FFR- 

16THEN15© 

475 IEEG<2)THEM15© 

43© EG C2)=5 : GOSUB600 = GOSUB2300= G0T045© 

434 

435 REM RERD JOYSTICK 

433 : 

5©0 -JV —REEK< V + JS> : ER-JVRND13 : JV=15— < JVRN 

D15) : ROKESI+4,123:ROKESI+24,3:RETURN 
52© 

525 REM MOVE SHUTTLE 

53© : 

30© ED —MV : EX —MX—1 1 : ROKEV + 7, ED = IEEG< 1 )THE 
NPOKEV+ 16, REEK < V-*-16) OR3 

31© X EEG < 1 > =0THENROKEV+16, REEK CV+16)HMD C 
255-8) 

315 IEEXC0THENEX—© 

32© ROKEV+S EX : ROKEV+2 1 ^ REEK < V+2 1 > OR3 : RE 

TURN 

35© = 

351 REM INITIRLIZE SPRITES 

352 : 

3©0 POKES1 ,R1 = RGKES2, 234 : ROKES3, RE - POKES 
4 23© 

81© ROKES5 ^ 227 : POKES6w 223 : ROKES7223 = ROK 

ESS,RS-POKEV+29,254:ROKEV+23,254 

320 POKEV .. MX : POKEV+ 1 MV 

33© POKEV+2,©:ROKEV+3,125 

34© POKEV+4,R:POKEV+5,2©7 

©5© ROKEV+6, MX = ROKEV+7, MV 

©30 ROKEV+S,202:ROKEV+9,207:ROKEV+43,13 
870 POKE V+ 10, 1 55 : POKE V+ 1 1 ^ 207* : POKEV+44 , 7 

330 POKEV+12, 243 : POKEV+13 207 : POKEV+45^ 7 

S3© POKEV+16, 123 : POKEV+14 , 4© : ROKEV+15 - 2© 

334 RR I NT " 71*' ; = ROKEER ^ 2 - POKEBK , 12 = GOSUE 1 1 

00 

335 RETURN 

©33 = 

337* REM END OE GAME 
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Program 


300 GOSUE220© 

3©5 ROKEV+2 1 ^ 24 1 = ROKEV+ 16, REEK < V-+- 16) OR 1 : 
ROKEV+23, 255 = POKEV+23, 255 = EORT=1TO30 
31© ROKEER 2 = ROKEBK , 1 = POKEV , 4© : POKEV+1 „ 1 
3© : POKES 1,213 = ROKESI+4, 123 == EORD= 1 TO30 : ME 
XT 

32© ROKEER, 1 : ROKEBK, 2 = POKES1,213 = ROKEV+3 
3 .» 2 : ROKESI+4, 123 = FORD—1TO30 = NEXT 
333 NEXTT : ROKEER. 2 = ROKEBK .. 3 = ROKEV+21 .. 245 
:ROKEV+39,1=EG<1?=5■EG<2)—© 

34© MY=1©0 : R—© : ROKEV+23, 254 = ROKEV+23,254 
- POKES© , 202 = RS—2©2 = R==© 

343 LR=VL = IFVL>3THENVL = 3 

344 ROKESI+4, 123 : POKEV+21 ^ © - ROKEBK, 12 


345 PRINT 11 sCrxraanXnXRO^aAaSIKliBiBi Bill BiBiai|iBi*i»ai»BiBGR ME 
ovERMHaMamaamHiscoRE 11 lp ; — ■■ s && < vl > 


343 PR I NT" WBWBBPRESS EIRE BUTTON TO RLR 
V flGRIN" 

347 s - GOSUB500 = I FFR= 1 6THEH947 

34© POKEV+ 16, REEK < V-+- 16) OR 1 : ROKEV+2 1 .. 245 = 
MV—1©0 = MX—30 - VL = 0 : RS —202 = PH=3 

343 FORT— 1 TO 1 3 = EG < T > =© - NEXT : POKES I -+-4 .. 1 23 
=RETURN 
35© 

351 REM CATCH COOLANT PACK 

352 : 

355 IER<< EX+10)ANDR>< EX—10)ANDEG< 2 > THEN3 
7*0 

33© RETURN 

37-© I EEDC2 1 7flNDED> 1 37ANBFG C2) THENROKES3 ^ 
232 = EG < 3)—5 : GOTO330 
33© RETURN 

33© ROKEV + 2 1 , REEK < V-+2 1 > RND < 255—3 > : RETURN 
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1 ©00 POKEV+2 1 REEK < V-*-2 1 > AND < 255-2 > 
=0 - FGC8j-=0 : BF-0 : RETURN 
1037 : 

1033 REM RRINT BACKGROUND SCREEN 

1033 

1 1 00 FORT = 1 TO 1 5 RR I NT " 2*3 

" j: : NEXT 

11 03 rr i nt *■ 


■ FGC?) 


11©4 RRINT* 


1 RRIHT^ E*M 

1 1 20 RR I NT ** 2» 

-*—i— 1 —i— 1 —t—HiCOOLER 
1 1 25 RR I NT ** ■ 


REACTORS r— 1 1 1 


1130 RRINT "I 

—»— 1 — i —*- T - x t 1 - -1 ■* « ■ 

1135 RRINT "I 


hrlFODK-r 
■ BS l»P9S) F» ~i— 1 — r ~ 


■s wmwaa i 


1140 RR I NT " ■mi 


1145 PRINT" 

—i— 1 —i— 1 —i— 1 —■— 1 —i— 1 —r 
1150 RRINT" 


: POKESC-+-333 j> 1 60 
1155 FOKEV +3047 * 3 : RETURN 
1 197 

1138 REM SOUND ROUTINES 

1 133 

2000 PS=P3+PI = ROKES8, RS : IFRS>216ANDFG< 12 

>=0THENGOSUB800:PS=202=R=0:GOTO127 

2005 FORT = 0TO24 = ROKESI+T, 0 = NEXT 

2010 POKESI+5.136 

2020 POKESI+6.245 

203© POKES I -»-24 15 

2©40 POKES I -*- 1 4 

2050 ROKESI j 85 

2060 POKESI+4. 123 - FORT*15TOQSTER—1 : POKES 
I +24 . T - FORRP= 1 T05 = NEXTF’P .. T 
2070 POKES I -*-4 123 

2©Q© POKES I +24 .. 3 : MV = 30 = MX= 1 00 : GOSUE2300 : 

RETURN 

203© 

2200 FORL=0TO24 : POKES I -*-L_ ^ © - NEXT 

22 1 © POKES I ■+■ 1 ^ 1 30 

2220 POKES I -*-5 .. 3 

2230 POKES1+15,3© 

224© POKESI+24*15 

225© FORL= 1 TQ255STEP5 = POKES I -*-4 .. 2© = POKES I 
1 .» L- 

2230 FORT* 1 TO20 : NEXT : POKES I +4 ..2 1 

2270 FORT=1TO50 = NEXT = NEXT - FG < 12 >=5 

223© FG < 1 2 > *=© : RETURN 

223© : 

230© POKES I +5 a 35 : POKESI+6, 35 : POKES I +24 j. 1 
5 : POKES I-i-l .. 5 = ROKESI 135 

23 1 © POKES I -»-4 33 : FORT* 1 TO30 = NEXT = POKES I -*■ 

4 ji 32 : RETURN 

3100 

3101 REM PRINT SCORE 

3102 - 

320© PRINT"a|« | li»»»»»»l 

3205 IFPH>0THENPH*PH+1 
3207 s - I FPHC0THENPH=RH— 1 
3203 IFABS < PH >>40THENPH*9 

3210 PRINT"5aaB 1 VOU HAVE RAT IN 

G PO I MTS35 

3220 PR I NT " S=32M " TAB VL_ 

323© FORT1 = 1TO15 = POKEBR, T1 : GOSUB2300 : FOR 
T2=1TO50:NEXT:NEXT 
3240 POKEBR .* 2 
325© RETURN 


SOUND ROUTINES 
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Program 












Cosmo's Rescue 


Frank Mikulastik 


© REM 

1 REM 

2 REM 

3 REM 

4 REM 

5 REM 
■S = 

T REM 


=+-: COSMO S RESCUE sfs 

* BV FRANK MIKULASTIK *= 

* <C> 1984 FANFARE HOUSE, INC. =* 

EUX o£ifc>Li! HuUSTuN .• TX F ■-' i^!53 =4^ 

IHITIRLIZATION 


10 S 1 =54272 : FG= 1 : CT =255 = POKE53248+2 1 .- 0 

30 n I M MS < 20 :■ OS < 20 > .. MM < 20 > 

37 POKE56578^ PEEK< 56578 > OR3 

38 POKE56576, C PEEK < 56576 > RNB252 > OR1 

39 POKE53272, < PEEK < 53272 > AND15 > OR8 

4© FOKE648, 1 28 = PR I NT ,0 ^3" = eQSUE3300 

45 SM=32768 - POR I =40*64 + SMTO4 1 *64- 1 -*-SM = PO 
KEI 0 : NEXT 

46 FOR I — 1 6*64 + SMT036*64- 1 +SM : REflDFl = POKE I 
.. R - NEXT 

47 FOR I =4 1 *64 + SMT047*64- 1 -t-SM : READH = POKE I 
.. R - NEXT 

T’O MS U> = 16: MS < 2 > = 1 F = MS ■:! 3 > = 16 = MS C 4> = 18 = M 

S<5>«16 = MS <6> = 19 = MS <T >=20 - MS < 8> = 13 

77 MS < *3 > =16: MS C 1 0 > =2 1 = MS: <11> = 16: MS < 1 2 > =2 

F'S X 1 = 1 2 

80 V =53248 : CM-55296 - M 1 = 1016+SN 

S1 OS < 1 >=31 - OS < 2 >=32 : OS <3>=31 - OS C 4 >=33 = O 

S < 5 > = 3 1 = OS < O > =34 : OS: < F > =2:1 : 03 S > =85 

83 MM <T > =41 : MM <2 > =42 : MM <3 > =43 = MM <4 >=44 = M 

M 5 > =43 : MM < O > =42 : MM < T > =4 1 

84 MM < S > =45 : MM< 3 >=43 : MMC 10>=46 : MM CIO=43 
: MM C12>=45 

85 T4=12 

86 RK1) =20 - A 1 < 2 > =27 = R 1 < 3 > =20 : A1 <4> =28 
S3 T = 4 

35 POKEV + 2 1 ^ 000 = POKEV+28 .* 195 '• POKEV+29, 12 
S:POKEV+23,128 

1 00 POKEV+39 5 = POKEV + 40 -■ 5 = POKEV + 4 1 7* = POK 

EV+42.. F : POKEV+43, F = POKEV+37, O = POKEV+38, 1 

30© FOR I =©TO'F - POKEM 1 + 1,4© - NEXT 

303 GOSUB3300 

305 GOSUB3100 

31© GOSUB70© 

32© POKEV+30, 0 
33© POKEV+31^0 

335 FS = 0 : ME = 3 = PRINT" =*s3=S_EFX : 3 " = POKEV+2 

1 255 

397 : 

398 REM MAIN LOOP 

399 = 

40© GOSUB1©00 

4©5 IFFLK=0THENOOTO3700 
407 Q = PEEK < V + 30> 

4 10 IF <QRND33>=33THEHGOTO3600 
413 I F < QAND 1 2*3 > = 1 29THEHGOTO3700 

4 15 IF<<QAND65>=05 > RHD< CT=0> THENGOSUB430 
0 

420 Q=PEEK V-*-3 1 > 

425 I F cl QAND 1 > = 1 THENGOTO3700 
430 X FCT =1THENGOTO450 
440 GOSUB4000 
45© GOSUB4100 
43© 00X040© 

035 : 

030 REM 


INITIALIZE GREEM RLIEH 
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I ey? :■ 

7" 00 SP= 1 : POKEM 1 ^ MS < SR > - X=32 : V=T5~2 1 : X 1 =0 
: V 1 ==0 = POKEV+ 16,0 
730 RETURN 
95 : 

796 REM MOVE GREEN ALIEN 

7^7 : 

1 000 jv — PEEK c; 56320 > = ER = < JVflND 16) : JV= 1 5— < 
JVRND15> 

1 ©05 V 1 = V 1 - 2 : K 1 =4© : K2=40 : K3*40 : PS=0 - WF= 

0 

1©10 IFFRO16THENV2-—- 4 = GOSUE1200 = FU-FU- 
1:WF=129 

1030 IFJV=40RJV=5ORJV=6THENX2 = —- 3 = GOSUE1 

300 = FU-FU—1 - WF=129 

1 ©40 IFJV=80RJV=90RJV- 1 0THENX2 S = - 3 - GOSUE 1 
400 - FU=FU—1 : WF=129 

1 1 00 X = I MX < X-fr-X 1 > : V= I NT < V + V 1 > = SF-SF'+FS 

1105 IF3P>T1THEHSP-1 

111© IFX<31THEHX=31 

1120 IFV>223THENV=223 

1130 IFV<50THENV-50 

114© I FXi>3 1 4THENX=3 1 4 

1141 J1=X—25 

1142 IEX1>255THEHRX=RXOR4=POKEV+16,RX:RO 
KEV + 4 ..XI —255 : GOTO 1 1 5© 

1 143 RX = RXflND <. 255—4 > : POKEV+16, RX = POKEV+4 
, J 1 

115© J2=X+25 

1151 IFJ2>255THENRX=RXOR8 = POKEV+16, RX = EO 
KEV+6,J2—255:GOTO1160 

1152 RX=RXHND<255-3)=POKEV+16,RX-PuKEV+6 
.< - J 2 

1 1 <50 I FX>253THEMRX = RXOR 1 T = POKEV+ 16, RX = EO 

KEV,X—255:POKEV+8,X—255:GOTO1130 
1 1 70 RX-RXRND < 255— 17) : POKEV+ 16, RX = POKEV .. 
X : POKEV+S .- X 

1 1 30 POKEV+ 1 .. V = POKEV+5 ^ V = POKEV+7 .. V : POKEV 
+ Si , 'f+22 

1 1 32 POKEM 1 -+2 K 1 : POKEM 1 -+3 .. K2 = POKEM 1 -+4 ^ K3 
1 1S3 IFFR=16RND<JV=0ORJV-10RJV=20RJV = 7> T 
HENPOKEM1 ^ MSCl > : GOTOl 133 
POKEM 1 .. MS C SE > 

POKES1 + 19, 15 = POKES1+20, 15 : EOKES1 + 13 
EOKES1+14,4=EOKES1+15,112 

ER 1 NT a * E 

RETURN 
V1=V1+V2 
K3 = 25 
ES — 1 
RETURN 
X1=X1+X2 
K2 = 24 
ES= 1 
RETURN 
X1=X1+X2 
K 1 =23 
FS= 1 
RETURN 

REM INITIALIZE SERITES 

T5=34 = POKEH1+5, 3© = EOKEV+44, 3 : POKEV+ 
10,32:EOKEV+11,T5 

3005 E1=21©:E2=210:FI=310 : F2=285:G1=E1:G 
2=F2 


i 135 
1 1 S3 
.. HE , 
1 1 87 
1 130 
U 

1 135 
120© 
12 1© 
1 230 
1 23© 
1 30© 
1310 
1 33© 
1 33© 
1 40© 
141© 
143© 
1 43© 
2©34 
2035 
2033 
300© 
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3© 1 0 R3= 1 : POKEV+45 .. 4 = POKEV+ 12,G1 —255 : EOK 

EV+13, 32 = RX=RXOR64 : EOKEV+16, RX 

302© R4= 1 : EOKEV + 46 .. ~F - POKEV+ 14.. G2—255 : EOK 

EV+ 1 5 , 200 = RXsRXOR 1 23 = POKEV+ 1 3 .. RX 
303© El_l ==300 : CT=0 

304© EOR I =01024 : EOKES 1 + 1,0: NEXT : EOKES 1 -+2 
4.-15 

303© RETURN 
3035 : 


3033 REM 
3037=- = 


ERINT ELRV SCREEN 


3100 

ER I NT 

" 73” .: 




3 105 

EOKES 

323© 

1 .. 1 : EOK 

E5328 1 .* 0 


3110 

FRINT 

"* BlaLEFT 

3 FUEL : 300 


ORE 

: 0 

»* 

; 



3112 

ER I NT 

11 rasi 




3 114 

ER I NT 

" rsisi 


HP*- 


^Sl TOT- 


. -^si 

SFSi - 


3115 

ERINT 

■■ rasa 

saw 


SI 


^icn rsisi 

““ 


3113 

ER I NT 

■■ rsisi 



SI 




'"'V'Tsasi 

j 


3 113 

ERINT 

"nasi 


i 

Si 


SC 
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312© 

PRINT "raid 

saa d "^@51 



d 



raid " 




3 122 

PR I NT " rasa 

5IB d ^ 

dP^HI 

■ 


mm 

d 

rsid " ^ 




3126 

PR I NT " raid 

said 

Hi 


d 


^=id " ; 




3 1 28 

PRINT " raid 

wr "^d 




mm 


raid " ^ 




313© 

PR I NT " raid 

saw r- ^ 


d 

a 



raid " 




3 1 32 

PR I NT " rsid 

saw 


d 

a 



raid " ^ 




3 134 

PRINT" raid 

Saw 


d 



gjPF^PFl 

raid " ; 




3136 

PRINT "raid 

saw 


d 



am 

raid " ^ 




3 1 33 

PRINT "raid 

53W BP" "'Hi 



gj IF" 

raid " j: 




314© 

PR I NT "raid 

saw d 



d i 

d BF 


rsid " ; 




3 1 42 

PR I NT "nasi 

sa m d y 


■^d 

^1 


rsid " j 




3144 

PR I NT " r:ad 

Sami d Hi 



d 



rsid " ; 




3146 

PRINT "raid 

sow d a 



d 

wm 


rsid " ; 




3148 

PRiHT"raa 

saw d w 

sad 

a 




rsid " ; 




3 1 5© 

PRINT" raid 

saw 

sad s 





rsid " 




3152 

PRINT " raid 

saw 

sad a 





raid " 




3154 

PR I NT " raid 

saw 

sad a 





rsid " ; 




3156 

PR I NT " raid 


s a dr- -hp 





raid " 




3153 

PR I NT " raid 






rmifai" 




316© 

POKESM+999 * 16© - POKE56295, 2 



3 IS© 

GOSUB3000 




319© 

RETURN 





3195 






3196 

REM 

GAME OVER 




3137" 






32©0 

PRINT"S»> 


O’ 


=*" 

32 1 © FOR I =0TO4 : F'OKEM H- I ^ 4© = NEXT : FOR 1 = 1 TO 
S3:POKES1+I.©:NEXT 
3215 GOSUB3500 
3220 FORI=iTO500•NEXT 

324© FORJ-1TO100 : NEXT = GOSUB4000 : FORJ=lTO 
1©O : NEXT = GOSUE4100 

325© FR-PEEK< 56320>RND16 : IFFR=16THENGOTO 
324© 

329© 

3295 
3236 
3237 " 

33©© 

331© 

332© 

333© 


rr i nt ra" ; : return 

REM PRINT INSTRUCTION SCREEN 


PRINT” Sag 1 ' J 
IFFGTHENGOSUB3500 
POKE5328 1 .• 1 : POKE5328© * 2 
PRINT "JOB COSMO 


S RESCUE 


3331 PRINT” 

IK” 

3332 PRINT" 

E .»• INC- " 

3336 PRINT" 

ICK TO" 

333S PRINT" 

GREEN" 

334© PRINT" 

IGHT-" 

3342 PRINT" 

UTTON" 

3344 PRINT" 

UP- " 

3346 PRINT" 

L THROUGH" 

3345 PRINT" 

VERN RND" 

335© PRINT" 

E RLIEN." 

3352 PRINT" 

N COSMO” 

3354 PRINT" 

LRTFORM" 

3356 PRINT" 

ED ON THE" 

3355 PRINT" 

ING FUEL-" 

3359 IFFGTHENFG=0 : RETURN 
336© F*R I NT " JSU&Bi PRESS THE 

TTON SSFSi Hi BSTO STRRT" 


EV FRANK MIKULRST 
<C> 1984 FANFARE HOUS 

MOVEMENT USE THE JOVST 

begin moving the 

RLIEN LEFT RND R 
PRESS THE PIRE B 
TO BEGIN MOVING 
OBJECT YOU MUST TRRVE 

THE DANGEROUS CR 
RESCUE THE PURPL 
IP YOU CRN RETUR 
TO THE LANDING P 
YOU WILL BE SCOR 
AMOUNT OP REMRIN 


PIRE EU 
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SCREEN CHANGE 


3375 GOSUE3500 

3380 FR=PEEK < 5632b) > RHD 1 6 = I FFE= 1 6THENGOTO 
3380 

3385 PRINT"^'; : GOSUB3500 
3330 RETURN 
3435 - 

3496 REM 

3497 : 

350© FOR I =01023 : POKES 1 -+ I , © : NEXT 
35©5 POKESl+24>15 
351© FORI= ©TO15 
352© POKE53281 .. I 

353© POKES 1 -1-5 >15 = POKES 1 +-6, 1 5 = POKES 1 + 12, 1 
5 = POKES 1 + 13, 15: POKES 1 + 19,5 = POKES 1 h- 2© .. 5 
3532 POKES 1 -+-4 .. u ■ POKES 1 + 11,0 = POKES 1 + 1S, © 
3535 POKES 1 +-4 , 1 T" - POKES 1 + 11,33 : POKES 1 + 18, 
1 2 3 

3540 POKES 1 , <I-+-1>5*:10: POKES 1 -+ 1 , <I + l>*10:p 
OKES1+12,a+l>*10=POKES1+13,<I+1>*10 
3545 POKES 1 + 14, CI + 1>*1© = POKES 1 + 15, < I +- 1 ;■ 

355© NEXT 

3560 FOR I =0TO23 = POKES 1 1 . 

3590 RETURN 


I = NEXT 


3535 

3596 REM 

3597 
3600 
3610 


GREEN RLIEN LANDS ON PLATFORM 


GREEN ALIEN FALLS 


I F C I NT C X 1 > O© > OR < V 1 >3 > THENGOTO3700 
IF<PEEK < 56320>AND16)<>16THENGOTO40© 

3613 FOR1=1TO20©:NEXT 

3614 IFCT=1THENGOSUB460© 

3615 GOSUE4000 

3617 GOSUE4100 

3618 FU=60© 

36 1 3 PR I NT " FU 

3620 POKEM 1 -+-2 4© : POKEM 1 +-3 , 4© : POKES 1 + 18, © 

363© V=T5—21 
364© Vl=.4 

365© POKEV+ 1, V = POKEM 1-+-S , 4© : POKEM 1 -*-3 -■ 4© = P 
OKEM 1 -+-4 , 4© 

363© G0T0361© 

3635 : 

3636 REM 

3697 = 

3700 POKEM1,16 
3705 POKEMl+1,29 

37 1 © POKEM 1 , 26 : POKEV+3 .. V 

3r- 15 FOR I =0TO23 : POKES 1 + 1,0: NEXT 

2. r ‘. S0 I FX>255THENRX=RXOR2 = POKEV+ 16, RX : POK 

EV+2,X—255:GOTO3750 

373© RX=RXAND<255-2) = POKEV+16, RX = POKEV + 2 

, X 

3740 A2= 1 : FOR 1 = 1 T04 = POKEM 1 +- I , 4© = NEXT 

ST’S© V=V-+4 

3751 GOSUE4500 

3755 FOR1 = 1T05© = NEXT 

3760 POKEV+1 , V = POKEM1,A1CA2> 

3765 A2=A2+1:IFA2>TTHENA2=1 

377© IFV<250GOTO3750 

3 f S© POKEM 1 -+ 1 .. 4© : POKEV + 3, © : POKE53280, 1 : P 
OKE532S 1,©: POKES 1 + 11,0 = POKES 1 +-24 , © 

ST’S 1 GOSUB70© : GOSUB3000 

3782 POKEV+3©,©:POKEV+31,0 

3 r 84 ME = ME—1 : PR I NT '• S8SLEFT : " ME 

3 <■' 86 I FME = 0THENUOSUB32©0 : GOTO30© 

3790 GOTO40© 

3335 

REM MOVE PURPLE RLIEN 

3337 : 

4©0© A3=A3+1:IFA3>T3THENA3=1 

4© 1 © POKEM 1 +-6 , GS < R3 > 

4©2© G1=G1+D1*4 

IFG1>=F1THEND1=—1 
I FG 1 <^=E 1 THEND 1 = 1 

. J FGl>255THENRX=RXOR64 : POKEV+16, RX : P 
OKEV+12,G1—255 : GOTO407© 

? S^G 1 RX==RXRN]D - 255 ~64 > : POKEV+16, RX : POKEV + 

f ® 1 + 11,0: POKES 1 + 12,5 : POKES 1 + 13,5 

• POKES1+1 1,33 

4©3© RETURN’*" 7 " '* GS C - R3 > : POKES 1 +-Q , GS < R3 > #2 

4035 : 

REM MOVE VELLON MONSTER 

4037 : 

4 1©0 G2=«G2+D2*2 

413© IFG2>=F2THEND2=—1 

414© IFG2<=E2THEHD2=1 
4145 I=RXAND128 

4 1 47 I F C C G2>255 > RND < I =© > > OR <. C G2C256 > RND <C 
1 = 128)) THENPOKEM 1-+-T , 4© 

415© IFG2>255THENRX=RXOR128:POKEV+16.RX: 
POKEV+14, G2—255 = GOTO4170 


4©3© 

404© 

4©5© 
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4 1 60 RXssRXflND < 255— 1 28 > = FOKEV+ 16, RX = POKEV 
+14,G2 

4170 R4=fl4+1:IFR4>T4THEHR4=1 

-4 1 30 POKEM 1 +7 -• MM < A4 > 

-4 1 84 POKES 1 -+-*4 .. 0 : POKES 1 -*-5 j. 5 : POKES 1 h-S s 5 : PO 

KESl+4^17 

-4 1 86 POKES 1 .. 1 : POKES 1 •+• 1 .. MM C A4 > 

4190 RETURN 

4295 - 

4296 REM PICK UR PURPLE RLIEN SOUND 

4297 = 

4300 CT=1 

43 1 0 POKES 1 +24 , 15: POKES 1 + 12, 15 = POKES 1 •+-1 3 
^ 15 

4320 POKES1+11,32:POKES1+11,33:POKES1+8.. 
7* : POKES 1 -*-7 , 12 - FOR 1 = 1 TO 1 00 : NEXT 
4330 POKES1+11,0 

4335 POKES1+24, 15 = POKES1 + 12, 15 = POKES1 + 13 
^ 15 

4337 POKES 1+11,32 = POKES 1 + 11,33 = POKES 1-+-S 
7 : POKES 1 -+-7 ^ 233 = F OR 1 = 1 TO 1 00 : NEXT 
4333 POKES1+11,0 

434 1 POKES 1 -+-24 .-15: POKES 1 + 12, 15 = POKES 1 + 13 
.. 15 

4343 POKES 1 + 11,32 = POKES 1 + 11,33 : POKES 1 -»-S 
3 : POKES 1+7*, 37- : FOR 1 = 1 TO 1 00 = NEXT 
4345 POKES 1 -+-1 1 ^ 0 

4347 POKES1+24, 15 = POKES1 + 12, 15 = ROKES 1 + 13 
^ 15 

4343 ROKES 1 + 11,32 = ROKES 1 + 11,33 - ROKES 1 -»-S -■ 

3 = ROKES1+7104 : FOR1 = 1TO500 : NEXT 

4351 ROKES1+11,0 

4353 POKES1+24,15 

4360 ROKEM 1 -+-S 40 

4330 RETURN 

4435 

4496 REM FALLING SOUND 

4437 

4500 _T = JT-+- 1 : IFJ>15THENJ«0 

4505 POKE53280, 15-.J 

45 1 © ROKES 1 -»-24 , 15: ROKES 1 1 2 1 5 ■ POKES 1 •+■ 1 3 

,15=ROKES1+11,16 

45 1 2 ROKES 1 1 1 .. 17 = ROKES 1 -*-7 V : ROKES 1-+-S .. V 

453© RETURN 

4535 : 

4536 REM SUCCESSFUL. RESCUE 

4537 = 

4600 CT=0 

4610 ROKES1+24,15=ROKES1+12,15=ROKES1+13 
,15 = ROKES1 + 11, IS 

46 1 3 ROKES 1 + 11, 17 = ROKES 1 H-S .• ST* : ROKES 1 +7 -■ 1 

5 

4615 FOR1=1TO100:NEXT=ROKES1+11,0 

46 1 7* ROKES 1 -*-24 , 15 = ROKES 1 + 12, 15: ROKES 1 + 13 

, 15-: ROKES 1 + 11, IS 

46 1 3 ROKES 1 + 11, 17 = ROKES 1 H-S .. 75 = ROKES 1 h-7 .. S 
3 

4S21 FOR1 = 1TO100 = NEXT : ROKES1 + 11,0 
4S23 ROKES1+24,15=ROKES1+12,15:ROKES1+13 
15 : ROKES1 + 1 1, 16 

4S25 ROKES 1 + 11, 17 = ROKES 1 -*-S .. 84 : POKES 1 +7 -■ 1 


25 

4S27 FOR1 = 1TO100 = NEXT = ROKES1 + 11,0 

4S23 ROKES1+24, 15 = ROKES1 + 12, 15 = ROKES1 + 13 

,15 : ROKES1+11,IS 

4S3 1 ROKES 1 + 11, 17 = ROKES 1 -»-S S3 = ROKES 1 +7 1 

31 

4S33 FOR1=1TO500:NEXT:ROKES1+11,0 
4S35 FS=FS+FU 
4S40 F'R 1 NT >a 

S FS 

4S30 RETURN 
S000 

6010 REM SPRITE DATA 

S020 : 

S335 REM GREEN ALIEN — 1 

7000 DATA S3 

70 1 0 DATA 0 ^ 252 -• 55 .■ 0 ^ 220 

7020 DATA 55,0,220,63,130 

7030 DATA 252,2,130,128,0 

7040 DATA 170,0,0,170,0 

7050 DATA 0,130,0,0,170 

7060 DATA 0 .• 32 .. 40 .. S .. 1 70 

7070 DATA 170,170,0,40,0 

70S© DATA 0,170,0,0,170 

7030 DATA 0,0,130,0,2 

7 1 00 DATA 1 30 .• 1 28 .. 5 ^ 85 .■ ©0 


7110 

DATA 

21, 

85 ^ 84 

,21, 

y5 

7120 

DATA 

84 .• 

5 .. 85 ^ 

80,0 


713© 

DATA 

20 -■ 

©..© 



7135 

REM 

GREEN ALIEN 

— 2 

7140 

DATA 

S3 .• 

0,0 



7 150 

DATA 

55, 

0 .. 252 

.. 55.. 

0 
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7160 
7179 
7 13© 
7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
7275 
7280 
7290 
73 ©© 
7310 
7320 
7330 
7340 
7350 
7360 
7370 

r' 330 

7390 
7400 
7*-4-©5 
7-*4 1 © 
7420 
7430 
7440 
7 * * 45 © 
7460 
7 - 47 © 
7-43© 
7*43© 
75©0 
751© 

r* 53© 

753© 
75-4© 
7545 
755© 
753© 
757© 
753© 
753© 
73©© 
73 1 © 
732© 
733© 
734© 
735© 
733© 
737© 
7375 
733© 
733© 
770© 
771© 
772© 
7730 
7740 
775© 
7730 
7770 
7730 
773© 
730© 
73 1© 
7315 
732© 
733© 
734© 
735© 
7330 
737© 
733© 
733© 
730© 
731© 
732© 
733© 
734© 
735© 
7355 
733© 
737© 
733© 
733© 
300© 
3010 
302© 


DflTfl 

IiRTfi 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

REM 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

REM 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

REM 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

REM 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

REM 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

REM 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 


-f 33 -■ 1 23 .• 22!© ^ 2 

1 3© .• 252 .• 0 j. 1 70 1 23 

©.- 17©.. © .• 3 j* 13© 

© .. 1 © ^ 1 7© ,.0^s 

4 © .- 3 .. 1©.. 170, 17© 

0 ^ 4©,0,0, 17© 

©.. ©.. 170, © .. © 

130, 0.-2^ 13©.. 123 

5 .. 35 .. 3© ,21,33 

34.21.35 .- 34 .- 5 
35,3© , © , 2© .• © 

0 

GREEN RL X EM — 3 

©-*©-• 252 .. 33 .. © 

22© .. 55 .. © .. 22© .. 55 
2,252,63,130,123 
2^ 17©.. ©.. ©j. 17© 

© -• © -■ 1 3© .. 32 .. © 

170, 160, 32, 4© .. 32 

170, 17©, 160, ©.. 4© 

0,0, 1 7© .•©..© 

1 7© .. © ^ © .. 1 3© ^ © 

2.-1 3© .. 1 23 ,5, 35 
3© ,21,35 .. 34 .-2 1 
35 .. 34 .. 5 .. 35 .. 3© 

© .- 2 ©.. © .. © 

GREEN RLIEN — 4 

©.. 0 

© -■ 33 ^ © .. 252 .. 55 
0 -• 220, 55, ©.. 22© 

63,130,252,2,17© 

123 .- ©.. 17© .. © ^ © 

1 3© -.©-•©, 1 7© .. © 

32, 40,3.. 170, 17© 
170, ©^ 4©.. © j> © 

1 70 -•©..©.. 1 7© .. © 

© • 1 3© .. 0 .. 2 .. 1 3© 

1 23 -■ 5 , 35 , 3© ,21 
35 .. 34,21,35 .. 34 
5 35 .. 3© , © .. 2© 

0.. 0 

GREEN RLIEN — 5 

0,0,0,33 
© .• 252 .- 55 © .• 22© 

55 -• © .« 22© 33 .. 1 3© 

252, 2.. 170, 128, © 

1 7© .. © ^ 3 .. 1 3© , 32 

10, 170, 13©.. 3 j> 4© 

32 , 10, 1 7© ^ 1 3© .. © 

4© ©■ © ^ 170, © 

© .. 1 7© ..©..©., 1 3© 

0. 2.. 1 3© .. 1 23 .. 5 

85,88,21,85,34 

21.35 .. 34 .. 5 ^ 35 

3 © .. © .. 2 © ..©.•© 

GREEN ALIEN — 3 

33 

© - 252 .. 55 . © .. 22© 

55 , 0 .« 22© , 33 , 1 3© 
252 ^2^1 3© .. 1 28 © 

1 7© ^ 1 7© ^ © 

© .. 130,8,0, 17© 

© ^ 32 4© ^3^1 7© 

1 7© .. 1 7© .. 3 .. 4© j. © 

10,1 7© .. © .. 10, 1 7© 

0,0 , 2 , 0,0 

2 .. 1 23 j* 5 j- 35 , 3© 

21.35 34 .*2 1.. 35 

84 .. 5 .. 35 . S© .. © 

2© .. © .. © 

GREEN RLIEN — 7 

63,©.252 

55 ^ ©, 22© .. 55 ^ © 

220, 33.* 130.. 252, 2 
130, 128,0, 17©..© 

0 -• 170,0,0, 130 
©^©^ 170, ©^ 32 
40,8,17©,17©,17© 

© .. 4© ✓ 32 .. © .- 1 7© 

1 3© .. © ^ 1 7© .. 1 3© .- © 

1 23 ^ © .. 2 ^ 1 23 .. © 

5 .- 35 .. 8© .-21.. 35 

34.21.35 .. 34 .. 5 

85, 3© 2© .. © 

0 

LEFT THRUSTER 
©.. 0^©.. 0^0 
©.•©.. ©..©.. © 

0 -• © -• 0 -• 0 j © 

©-.©.-©..©..© 

0 © j> © .• © .« 0 

0^©^©^©.. 0 
0-.©^©,.©.. © 

0 * 0,0,0,0 
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8040 DRTfl 0,1€^0^0^0 
©05© DRTfl 0,0,36,0,0 

DRTfl 10,0,0,71,0 
DATA 0 .. 11,0,0, 33 
DRTfl @ , © , S , © 

REM RIGHT THRUSTER 
DRTfl 0,0 
DRTfl 0,0,@,0,@ 

DATA ©,©,0,0,0 
DRTfl 0,0, 0,0,0 
DRTfl 0-0.0, 0,0 
DRTfl 0,0 , 0 , 0 , 0 
DRTfl @,©,0,0,0 
DRTR 0,0,0,0,0 
DRTfl 8, 0,8,0, 0 
DRTR 0 , © , 0 , 36 0 

DRTR 0,©0,0,0,226 
DRTR @,0,30©,0,0 
DRTR 10©,0,0,16,0 
DRTR ©,0 

REM BOTTOM THRUSTER 
DRTR ©,60,0,0 
DRTR 1£6,0,0,335,© 

DRTR <4 , S3 , © , 1, 3-4 
DRTR S-4,3,73, © , 1 
DRTR 36 , S-4 , © , 1 © , © 

DRTR 0,0,0,0,0 
DRTR 0,0,0,0,0 
DRTR 0,0,0,©,© 

DRTR ©,@,0,0,0 
DRTR 0,0,0,0,0 
DRTR ©,@, 0,0,@ 

DRTR ©,0,0,0,0 
DRTR 0,@,@,0,0 

REM GREEN RLIEH FALLING — 1 

DRTR 55 

DRTR 0,33@,33,@,313 
DRTR 53,©,S3,55,13© 

DRTR 330,3,130,13©,© 

DRTR 1 7"© ,©,©, 1 70 , 0 
DRTR @,13©,©,@,IT© 

DRTR 0,33,40,8,170 
DRTR 1 7*0 , 1 7*0 , © , -4© , © 

DRTR 0,1 7-0 , © , © , 1 T 5 "© 

DRTR @,0,13©,0,3 
DRTR 13@,13©,©,©,@ 

DRTR 0,0,0,0,0 
DRTR @,@,©,0,0 
DRTR 0,0,0 

REM GREEH RLIEH FALLIHG — 3 

DRTR 33,@,11© 

DRTR 55,@,33@,55,© 

DRTR 220,29,138,116,2 
DRTR 13©,13©,@,178,© 

DRTR @,13@,@,©,13@ 

DRTR 33,1@,17@,1 S@ , © 

DRTR -401,33, 1@, 170, 160 
DRTR © , -4@ ,@,@, 1 7@ 

DRTR @ , 0 , 1 701 , @ , 0i 
DRTR 1 3© ,@,3,13@,13© 

DRTR @,0,0, 01 , © 

DRTR @,0,0,0,0 
DRTR @ ,0,© , @ , 0i 
DRTR 01 

REM GREEH RLIEH FALLING — 3 

DRTR £9,8,116,55,0 
DRTR S3© , 55 , @H , £28,29 
DRTR 130,1IS,3,130,13© 

DRTR ©,17©,©,©,13© 

DRTR 0,0,13©,@,© 

DRTR 170,0,33,-4©,© 

DRTR 170,170,170,8,40 
DRTR 33, 101, 170, IS©, 1© 

DRTR 170,160,0,0,0 
DRTR @,©,0,0,0 
DRTR 0,0,0,0,0 
DRTR @,@,@,©,@ 

DRTR ©,©,@,0 
REM SHIR 
DRTR @,@ 

DRTR ©,@,0,0,@ 

Drtr 0 .. 0 0,0,0 

DRTR @,©,@,©,© 

DRTR 0,0,@,@,@ 

DRTR 0,0,@,0,@ 

DRTR 0,0,©,@,© 

DRTR ©,0,0,©,@ 

DRTR @,0,0,0,0 
DRTR @,0,0,@,@ 

DRTR 0,5,©5,3©,31 
DRTR ©5 , S-4,31, ©5 , ©-4 
DRTR 5,©5,©0,0,3© 

DRTR 0,0 
SS05 REM LAMDING PLATFORM 
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8910 DRTR 
8920 DRTR 
8930 DRTR 
S940 DRTR 
8950 DRTR 
8960 DRTR 
8970 DRTR 
8980 DRTR 
8990 DRTR 
9000 DRTR 
9©10 DRTR 
3©2© DRTR 
3030 DRTR 
3040 DRTR 
3043 REM 
3050 DRTR 
3060 DRTR 
3070 DRTR 
9080 DRTR 
3030 DRTR 
31©0 DRTR 
3110 DRTR 
3130 DRTR 
3130 DRTR 
3140 DRTR 
3150 DRTR 
9160 DRTR 
3170 DRTR 
3130 DRTR 
3135 REM 
3130 DRTR 
3300 DRTR 
3310 DRTR 
3330 DRTR 
3330 DRTR 
3340 DRTR 
3350 DRTR 
3330 DRTR 
3370 DRTR 
3330 DRTR 
3330 DRTR 
33©0 DRTR 
3310 DRTR 
3330 DRTR 
3335 REM 
3330 DRTR 
3340 DRTR 
3350 DRTR 
9360 DRTR 
9370 DRTR 
3330 DRTR 
3330 DRTR 
340© DRTR 
3410 DRTR 
343© DRTR 
343© DRTR 
344© DRTR 
345© DRTR 
3455 REM 
3430 DRTR 
34*7*0 DRTR 
3430 DRTR 
3430 DRTR 
3500 DRTR 
351© DRTR 
3530 DRTR 
353© DRTR 
354© DRTR 
355© DRTR 
353© DRTR 
3570 DRTR 
353© DRTR 
353© DRTR 
3535 REM 
330© DRTR 
331© DRTR 
333© DRTR 
333© DRTR 
334© DRTR 
3350 DRTR 
333© DRTR 
3370 DRTR 
333© DRTR 
333© DRTR 
370© DRTR 
9710 DRTR 
9720 DRTR 
3735 REM 
973© DRTR 
3740 DRTR 
3*7*50 DRTR 
9730 DRTR 
377© DRTR 
9780 DRTR 


355 

355 355 .• 355 , 355 355 

355 -• 355 , 355 .• 355 355 

355 355 355 , 355 , 3*7* 

355 , 1 34 .. 33 , 355 , 3 
33 , 133 , © , 33 , 3© 

3 33 , 3© .. 3 , 33 

3© .« 3 .• 33 .• 12©,© 

33 , 355 .. 3 .. 97 .. 355 
1 34 , 33 , 355 , 1 98 .. 1 03 

355 .. 33© .. 111.. 355 .. 3 

1 27 355 , 354 .■ 1 3 f , 3 

354 1 27 .. 355 , 354 .. 3 

* ~ ■—"* 5 ~ - * „■ 

PURPLE RLIEH — 1 

15 

1 35 , 34© .. 13.. 1 35 112 

13.. 1 35 .- 113.. 15, 335 
340 -■ © , 1 30 .. © .. 0 

1 70 .. 0 .. 33 , 40 .. 3 

17U, 170, 1*7*0..©.. 170 
0 , © , 4© .- © .. 0 
1 70 ..©..©_. 1 3© .. © 

©.-I 3© ,0,3, 1 3© 

1 3© ,0,0,0 , © 

0,0,0,0,0 
©.•©,0,0,0 
0,0,0, © , 0 
0 , © , © 

PURPLE RLIEN — 3 

15,135,34© 

1 5 , fc>*7* , 30© , 1 5 , 1 0*7" 

30©,15,135,34©,© 
1*30,3:3, ©, 1*7*0, 1 60 
33, 40, 33, 170, 1*7*0 
1 60 , © , 1 *7*0 , © , © 

4©,©,10,17@,© 

0,3, 0,0, 3 
0,0,3,13©,0 
0,0,0,0,0 
0,0,0,0,0 
©,©,©,0,0 
0 ,0,0,0 , 0 
© 

PURPLE ALIEN — 3 

15, 1 35,34© , r" , 1 33 
24©, T ,233,24©,15 
135,24©,S,130,© 

10.1 *7*0 , 0 , © , 4© 

©,10,170,170,0 
1 7*0 ,0,0 , 4© , 32 
©,170,1©0,0,12© 

0,0,12©,0,2 

12©,©,0,0,0 
0,0, 0,0,0 
0,0,0,0,0 
0 , © , 0,0 , © 

0 , © , © , © 

PURPLE RLIEH — 4 

15,135 

240,15,©5,240,15 
105,340,15,135,24© 
0,1 3© ,©,©, 1 7*0 
©, 32, 40, ©, 1*7*0 
1 *7*0 , 1 70 , 0 , 1 *7*0 , 0 
© , 40 , 33 , 10, 1 "7*0 
1©0,©,©,©,© 

0 , 0 , 0 , © , 0 
0 , 0,0 , 0 , 0 
0 , 0,0 , 0 , 0 
©,0,0,0,0 
0,0,0,0,0 
0,0 

PURPLE RLIEH — 5 

15, 1 35 , 24© , *7 
1 35 , 20© , *7* , 235 , 2©S 
15,135,24©,©,130 
32, 10, 17*0, 1©0,S 
4© , 32 , 10, 1 7*0 , 1 ©0 
0,1 7*0 ,0,0,4© 

0,0,1 7*0 , © , © 

1 30 , © , 0: , 1 3© , © 

2,13©,12©,0,0 
0,0, 0,0,0 
0,0, 0,0, 0 
0 , 0,0 , © , 0 
0,0,0,©,© 

YELLOW MONSTER — 1 

1 7*0 

1 3 U , 1 7* 01 , 1 -■-** y , 1 y y , 

143,135,242,13,235 
112,13,235,112,13 
235,112,15,235,240 

2.1 30 , 1 2© , 34 , 1 7*0 


urn io 
tnn 
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9730 DRTR 136.. 170, 170, 170, 170 
9800 DRTR 170,170,2,170,128 

9810 DRTR 2. 170, 12©.. 1©.. 170 

332© DRTR 160 . 1©.. 17©, 160, 1© 

©S3© DRTR 170, 16© , 1©.. IT©.. 1©© 

334© DRTR 2 . 130, 128,2, 13© 

9850 DRTR 128,10.130,160,1© 

9860 DRTR 130,160,0 

9865 REM YELLOW MONSTER — 2 

9870 DRTR 170,13©,IT© 

9880 DRTR 15,195,240,13,195 

S'©©© DRTR 112, 13,235,112, 13 

9900 DRTR 235,112,15,235,240 

99 1 © DRTR 34 . © . 1 3© . 42 © 

9920 DRTR 168,34,0,136,42 

©S3© DRTR 170,168,42,170,168 

9940 DRTR 2,IT©,128,2,170 

9950 DRTR 128, 1©.- IT©, 160, 1© 

9960 DRTR 17©, 1 «S© , 1©.. 1 T0 , 1©© 

9970 DRTR 10,1T@,160,2,130 

398© DRTR 128,2,130,160,10 

9990 DRTR 13©.- 1©©.- 1©.. 12©.-© 

1©00© DRTR © 

10005 REM YELLOW MONSTER — 3 

1001© DRTR 15,195,240,13,195 

1002© DRTR 112, 13, 135,112, 13 

10©3© DRTR 235,112,15,235,24© 

1 ©04© DRTR 2 © . 1 2© .. 2 © 

10©5© DRTR 128,2,0,128,34 

10060 DRTR ©,136,170,0,IT© 

100T© DRTR 170,1T0,1T0,2,170 

10080 DRTR 128,2,IT©,128,1© 

10090 DRTR IT©.. 16©. 10, IT©.. 1©© 

1©10© DRTR 10, 170, 1©©.. 1 ©. IT© 

10 110 DRTR 1 6© ,2,1 3© -• 1 2© . 2 

1012© DRTR 130,128,1©.130,1©© 

1013© DRTR 1©,130,160,0 

10135 REM YELLOW MONSTER — 4 

1014© DRTR ©.© 

1015© DRTR ©,15,195,240,13 

1016© DRTR 195,112,15,235,240 

1©1 70 DRTR 2,0, 1 2© .2.0 

101 S© DRTR 1 2© . 34 . © . 1 3© . 42 

1019© DRTR ©,163,34,0,13© 

1 ©20© DRTR 42 . © . 1 6© . 42 . © 

1 ©2 1 © DRTR 1 6© ,2, 1 70 . 1 2© . 2 

1022© DRTR IT©.12©.10.IT©.16© 

1023© DRTR 1©.IT©.16©.10.IT© 

1©24© DRTR 16©. 1©. IT©. 1©©. 2 

1025© DRTR 13©.12©.1©.13©.12© 

1026© DRTR 10.130.160.0.2 

102T© DRTR 160.0 

10275 REM YELLOW MONSTER — 5 

102©© DRTR IT©.13©.IT©.15 

10290 DRTR 195.240.13.195.112 

1030© DRTR 13.235.112.13.235 

1©31© DRTR 112.15.235.24©.34 

10320 DRTR 0.136.42.0,168 

1©33© DRTR 34.©.136.42.IT© 

1©34© DRTR 16©. 42. 1T©. 16© . 2 

1©35© DRTR 1T0.128,2.170,128 

1036© DRTR 1©.IT©.16©.1©.IT© 

1037© DRTR 16©.1©.IT©.16©.1© 

10380 DRTR IT©.160.2.130.128 

10390 DRTR 1©.13©.123.1©.13© 

1040© DRTR 16©. ©. 2. 16©. © 

1©4©5 REM YELLOW MONSTER — © 

1©41© DRTR © 

1042© DRTR 0.0.15,195.240 

1043© DRTR 13.195.112.15.235 

1044© DRTR 240.2.0.123.2 

1045© DRTR ©.128.34,0.136 

1046© DRTR 42.0.168.34.0 

104T© DRTR 136.42.©.16©.42 

1©4©© DRTR ©.163.2.IT©.12© 

10490 DRTR 2.IT©.12©.1©.IT© 

1050© DRTR 16©.1©.IT©.16©.1© 

1051© DRTR IT©.16©.1©.IT©.16© 

1052© DRTR 2.13©.123.2.13© 

10530 DRTR 160.1©.130.16©.1© 

1©540 DRTR 12©.©.© 

2000 © 

2001© REM RESTORE MEMORY 

2002 © : 

2003© POKE648.4:PRINT-T=STOR 


Cosmos 

Rescue 


Program 






Mazemaster 


Igor Tulchinsky 


© REM 

1 REM 

2 REM 

3 REM 


MRZEMflSTER 

m EV ICOR TULCHINSKV 

* <C> 1384 FANFARE HOUSE, 


4 REM m BOX 3062 HOUSTONXX 77253 *= 

5 REM 2+=-*=:*==+==+= & &***i m ^=♦==*-: =*fc :*= =HN ^=+c =+=3* & 3#e=+:=+=:+==*=* 

1 © : 

11 REM IHITIHLIZRTION 

12 : 

13 GOSUE50000:GOSUB21000=GOSUB22800 : UUSU 
E20000:ONVRL<G$>OOTO2000.3000 

97 : 

98 REM 3—B PRINTOUT OR MAZE 

33 - 

1 0© RR I NTC$ < 1 > ssasa 


11© 

PRINTR$< 1 > 51 

SI 

" 03? < 1 > " 






1>" 

" 






1 20 

PR I NTR$ d 1 > •' 

Si 

*’ 03? <2> 

■ B 





4 L_3?d 1 > " 

" 






13© 

PRINTR$< 1 > '■ 

si 

’■ R3?d2> 

IB 

•• 03? c: 2 > ■■ 




" l_3? d 2 

:> •* ”L-3?d 

1 

;• '* " 



14© 

RR I NTR$ d 1 > *' 

S3 

"R$<2> 

IB 

■■ 2 > ’■ 




.. < 

2 > 

” " l_ d 

1 




15© 

RRIMTR$<1>■' 

si 

V R3? d 2 > 

IB 

,, C:^'::2> 

IB 



" L$C2 

> " 

.. < 

1 

> •• 



i e© 

RRINTR$d1>" 

si 

■•R3?d2> 

BI 

■’ C3 C 3 

> 

*• 


51 L-3? d 2 

" 

"L_3?d 

1 

> " 



IT© 

RRINTR*<1>” 

si 

e, R^<2> 

IB 

” < 3 

> 

" " L3 

<3J" 


'•u^c:3> •• 

L_^c:2 > ■■ 

" 

L.^ d 1 > 

13© 

RR I NTR$ d 1 " 

S3 

” R3? 2 > 

BI 

"■ R$ C 3 

> 

" C 

^ c: 3 ;• 


L^<3> " 

L_^<2> "* 

BB 

1_X C 1 

13© 

RR I NTR$ d 1 ;■ "" 

£4 

” R3r d 2 > 

.. 

" R$ < 3 

> 

I. 

C$<4> " ^ 







200 

RR I NTL$ < 3 > *' 


”L3? d 2 > 

" 

"L_^< 1 

> 

IB II 

21© 

RRINTR$d1>" 

Si 

■’ R3? <2 > 

" 

" R3? < 3 

> 

• I PI 

R3r d 4 

> ” ,, C3?d4>’' 


’■ 





22© 

RR I NTL$ d 4 > " 

" 

L_3F d 3 ;> 


"L$<2> " 


*• L_3? 

a>" 

" 







23© 

RR I NTR$ d 1 > 

za 

"R^c:2> 

PB 

'* R^<3 

> 

pi ■■ 

R3? d 4 > " "CsEd5> M 


BI j 





24© 

RRINTL$d 4 > " 


"" L.3? d 3 > " 


"L.^<2> ” 


" L_ 

$a> 

• • IB 







25© 

RR I NTR$ d 1 > *' 

za 

,, R^<2> 

" 

■*R^<3> 

it ■■ 

R$ d 4 

3* " ,, R3?d5>** 

BI 

C3?d«S> •* 

" 

; 



23© 

RRINTL$d 5 > " 

*’ 

L_3?d4> ” 


" L_^<3 > v 


L_^ d 2 

> " 

6 L.3? d 1 > 

" 






270 

RRINTR$<1>" 

za 

"R$C2> 

IB 

M R$C3 

> 

■ • ■■ 

R3? d 4 > " " 03? C5V 


*' ; 





23© 

RRINTL$(4>" 


"L$<3> B * 


"L$C2> ” 


■■ l_ 

*a> 

" . ** 







23© 

RRINTR*<1>" 

za 

•*R^<2> 

BI 

R^= C 3 

> 

• ■ ii 

R3?d 4 > *' ”03? d 4 > " 


" / 





30© 

RR1NTL$d 4 > " 

" 

L$C3> ” 


"L_:*<2> ” 


" l_^ 

av* 

Bi 







31© 

RR I NTRf d 1 > *■ 

SI 

••R^:c;2> 

11 

■’ R^ < 3 

> 

bi ii 

G3?d4> " ** J 







32© 

F'RINTL$<3> " 


•• L.^ c: 2 ? 

IB 

'' L_ ^ < 1 

> 


325 

PRINTR$< 1 > 

si 

” R-^ <2> 

IB 

" R$ C 3 

> 

.. .. G 

SE C 3 > 

at no 

L.^<3> ,, 

L^C2> ” 

at 

L_x a> 

33© 

RR I NTR$ d 1 > ■* 

E4 

" R:* < 2 > 

- 

” R^ C 3 

> 

" ’■ 

d 3 > " 


,, L_3?d3> ” " 

U^C2> ■' 

" 

l_^ a> 
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3 ■4-0 RR I NTR$ Cl > " 3 ” d 2 > ’* G& < 3 > ■■ 

” L_^ d 2 > ” " L_3? d 1 > ■■ 

35© PR I NTR$ d 1 > " SI ,, R$C2>" ,, G$C2>" 

M L.^ d 2 > *' " L_3? d 1 2> '* 

360 RR I NTR$ < 1 > " & ” C2> - '• GS? < 2 > M 

i, L.^T.2>" " l—^e- i > ” 

320 RRINTR$ d 1 > ■' Si ,n d S > " " G& d 2 > ” 

” l_^ C2>" ,, L$a>' 1 

38© RR I HTR$ d 1 > " SI " G& d 2 > " 

M L-4?d 1 > " 

33© RR I NTR$ d 1 > " Si " d 1 > ” 

"L^cn" e * 

<4-00 RR I HTG$ d 1 > " Si 
" ; " •saMCep 11 
41© RETURN 
437 

498 REM 3—IS PRINTOUT CALCULATIONS 

433 

50© REM 

53© DXC0)=0 = DVd© >=—1 
54© XIX C1> = 1 = DV < 1 > =© 

55© DX < 2 > =0 : XIV C2> = 1 
560 XIX d 3 > =” 1 : XIV C3) =0 
€00 VV = V : XX=X : FORI=0TO5 
€1© Dl=D-t-l : I FD 1 >3THEND 1 =© 

€11 D2=D — 1 : I FD2C0THEND2=3 

€ 1 3 R^ C 1 + 1 > =M I XI4? d . RK d V V ^ XX > -t-1 1 > : QQ$=R 

$dl+l> 

€2 © l_^ d i + i > —m i nm d ^ l_x d vv.. xx > -+-1 .. 1 > 

€2 1 I FMJi d VV+DV dDl> / XX-i-DX d D 1 > > =0THENL$ C 1 + 

l > = ■’ m rt 

€22 I FMX d VV+DV d XI2 > .. XX+DX d Xl2 > > =0THEHR$ CI + 

1 > = " ■ ” 

€30 03? d I + 1>*MI D3? d C3? j. CK d V V XX > ■+■ 1 1 > 

€4© 03? C I +1) — M I D^fc d OX d VV .■ XX > + 1/ 1 > 

€4 1 VV-VV + DV < D > : XX=XX+DX d Xl I> 

648 I FOX d VV .. XX > O0THEH656 

€51 FORZ=I+2T07 = G$d2 >=QQ$= 03?dZ)=QQ$ = RTd2 
> =QGT : L$d2>=QQ$ ■ NEXT : GGTG670 
€5€ IFVV>16THENVV-1€ 

€52 IFVV<0THENVV=0 
653 I FXX>36THENXX—36 
€53 I FXX<Z0THENXX = @ 

€€1 NEXTI 
€20 GOSUB100 
22© RETURN 

332 : 

333 REM PRINT HELP NAZE 

333 : 

1 000 RR I NT ” ZJK&a" : XI d © > =2 1 Ddl> — 18 = Dd2> =4 : XI 
d 3 > = 12 = ROKE53281 ^ 3 : ROKE53280,3 

1005 RR I NTTAB d 1 3 > " msSRRESS RNV KEV" : PRINT 
:PRINT:PRINT 

10 10 RR I NT " IPI" J. : FOR I I —©TO 1 6 : FORJ=0TO3€ 

10 15 I FGX d I I . J > »2THENPR I NT " Sim ■* .: : GOTO 1 ©3 
© 

1 ©2© RR I NTM I D$ d C$ .. —RX d I I ^ J > 3f. d OX d I I / J> <>© 
" i 

1 ©3© NEXT : RR I NT : RR I NT " »l" : NEXT 

1 04© POKE 1 024+2#40+VHf40+X+2 .. XI d Xl > 1 23 : ROK 

E5523€+7*40+V*40+X+2.2 

1©45 IFG$="2"THENROKE55296+2*40+B*40+fl+2 
^ 2 - POKE 1 024+7*40+E*40+fi+2 .. 36+128 
1©5© GETfl$:IFA$=””THEN1©5© 

106© RR I NT " 73” J = ROKE5328 1,9 = ROKE53280, 10 = 
RETURN 

1332 = 

1333 REM PRINT FLOOR — MAIN LOOP 

1333 • 

20©© ROKE53280 ^ © : V= I NT d RND d8>*17> = X = I NT d 

R N Xl d 3 > *37 > : I FMX dV.< X > — 1 THEN200© 

2© 1 0 ROKE54226 .■ 33 - FOR I — 1 TO 1 ©© : ROKE55293 + 

d V+2 > *40+X+2 -■ RND CS>*15 

203© ROKE54223 .• RND d 8 > #5©-*-3© : NEXT : NV = © : T I 

$="000000":ROKE54226,© 

2040 D = I NT d RND d © > *3 > : C$= " M agsimjaBfi SESTCJK Sgg ijgE 3WCT3 
SS" : RR I NT ■■ 71’* 

2©45 I FGX d V * X > 02THENGX CV,X > =2 : NV=NV+ 1 
2©5© GOSUB500 

2©5 1 RR I NT ” MBlEttefl” TAB d 3© > •' rjaSBBLOCKSBT’ : RR I NT 
TAB d 3© > NV 

2©52 RR I NT = RR I NTTAB d 3© > " SIT I MESH’* = RR I NTTRB 
d3@>INTdTI/60> 

2053 I F d NV—NB > OR ddTI .-€© > >TM > THEN40000 
2060 GETA$ 

206 1 RR I NT : RR I NT " 5®5le!XzS[Z!X3le?3•'• TAB d 3© > M SIT I NEB" 

: RRINTTRB d3© > INT d TIX€© > 

2062 IFTI/60>TMTHEN4000@ 

2063 I FR$= " *’ THEN2060 

2©20 GOSUB5500© : IFfl$=" "THENX=X+DXdD> V= 
V+DVdD> 

2025 I FMX d V ^ X > = 1 THEM V=V — DV dD> : X —X — DX d D ;• = 
GOTO206© 

208© IFH$="R"THEND=D+1:IFD=4THEND=0 
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2030 I Ffl$= " l_ 51 THENn=n- 1 : I FD=~ 1 THEND=3 

2 1©0 I FFI$= " H " THENGOSUE 1 060 
2110 GOTO2045 

2997 : 

2998 REM FIND TRER3URE — MAIN LOOP 

2999 : 

3000 POKE53280 ^ 3 : V= I NT C RND C8>*17? : X = I MX C 
RND C S > *37 > : I FM?i C V X > — 1 THEN3000 

3005 B =IMX C RNDtS>*17> = R =IMX CRNDC ©>*37> : I 
FMX C B ^ R > = 1 XHEM3005 

3006 I FSQR C C R — X > s+s C R — X > C B—V > * B —V > > CC9/3 

00XHEM3000 

3007 IFfl=XRMDB=VXHEM3000 

3010 POKE54276.. 33 - FOR1 = 1TO1©0 : POKE55296+ 

C V+7 > *40+X+2 .. RND C8>*15 = POKE54273 .. RND C 3 > 
20+50 

30 15 POKE55296+ < B + 7 > *48+fl + 2 ^ 1 : POKE 1 024-*- C 

B-*-T > *40+R+2 36 '• NEXT - X I 3? = " ©00000 " 

3040 POKE54276 0 : D = I MX C RND C 8>*«3 > = C$=" m =*=* 
h^BiBS?nCaReSCfiJQaHCrB: a> :PRINX M ^ U 
3045 GOSUB500 

3050 RR I NX " SaWDSttST XRB C 30 > "TTSiSlD I SXRMCEH" = RR I 
NXXRB C 30 > " USUI” I MX C SOR C C RBS C R — X > > 42+ C R 

BS C B—V ;• T2 > 

3052 RR I MX = RR I NXXRB < 30 > ” S3TT I MESS" - RR I MXXRB 
C30 > IMX CXI760> 

3053 IRC fl-XRMDB=V> OR CXI/60>XM> XHEM40000 
3060 GEXR$ 

306 1 RR I MX = RR I NX ” ^eiefljSMniEq"’ XRB C 30 " SIX I NEH" 

: RRIMXXRB C 3© > IMX CXI/60> 

3062 IF C XI760>XN > XHEM40000 

3063 IFR$=”"THEH3068 

3070 GOSUB55000:IFR$=" "XHENX=X+DXCD>:V= 
V + DVC D > 

3075 I FMX C V .. X > = 1 XHEM V = V — DV C D > : X=X—DX CD> = 
00X03060 

303© I Ffl$= ” R ■’ THEHII=D+ 1 : I FD=4XHEND = 0 
303© IFfl$="L"XHEND=D—1=IFD=—1THEND=3 

3 1 ©0 I FR$= ■■ H '* THENGOSUE 1 08O 
311© GOTO3045 

20000 = 

SOSO 1 REM CRERXE RRM330M MAZE 

20020 

2003© POKE5328 1^3 = POKE5328© .• 3 = RR I MX ” 73" ; 

20035 ROR I =55236X056235 - POKE I .. 0 : MEXX 

20036 PR I MX ” SaWKW" XRB C 1 2 > M BCRERX I MG XHE M 
RZE " 

2004© RR I MX " ■ 1 

20045 ROR I =0X0 1 6 - RR I MX " 

”=MEXX 

2005© D C © > = —40 : 33 C 1 > = 1 = 33 C 2 > =4© : 23 C 3 > =— 1 : OR 
=X:C3=CM 

20060 R=55296+13+40*12 

2©065 CM=GM— 1 : R=REEK C R-*-D C R > *2 > RND 15 = I R C R 
=0RM33OM>© > OR C C F=CR > RM33 C CM>@ > > XHEMR2=F2+ 1 
:00X020030 

20066 R2-0:IRCMC0THEN20100 

20067 C7=C7+1 : IRC7>IMX C 09/120+3. 3 > THEHC7 
=0:00X020031 

2O070 ROKE54276 33 = ROR 1 = 1 X02 = POKER ^ CR = R = 

R+*DCR> = POKE54273, 1*18 = MEXX = POKE54276© 
20075 IRR-2RNDCNC0XHEH201©0 

20030 R=IMXCRM33C3>24?4> = I RR2<20XHEH20088 

2003 1 R-55296+3+ I MX C RM33 C3>*16 > *2 + 40*s C 2+ I 

MX C RM33 C3>*10> *2 > : IRC REEK CR) RND 15) OCRXHE 
H20081 

20033 R3=© = ROR I =0X03 IRC REEK C R-*-D CI)> FIN 33 1 
5 > OCRTHENR3= 1 

20034 NEXX : IRCMC0XHEN20108 

20035 IRR3C>1XHEM20031 

20036 00X020065 

20033 I RR2= s 0flNDCM<0XHEM20 1 0© 

20033 R= I MX C RM33 C 3 > *4 > - CM=CM- 1 = I RCMC0XHEM 
20 100 

20030 GOT020065 

20037 : 

20033 REM COLOR XHE MAZE 


2© 1 0© 33 I MMX C 16, 36 > CK C16, 36 > ^ OX C16, 36 > .. L 

X C 16,36 > ^ RX C 16,36 > 

20 125 RR I MX " SsiEMK" XHE C 6 > ” ■COLORING 

XHE MAZE 

2013© NB-0 = RORJ =7X023 = RORI=2X033 = F-55296 
+J*40+I 

20 1 4© IRC REEK C R > HM33 15) =2XHENMX C _T— X .. I —2 > = 
1 - ROKE54276, © - 00X020163 

2© 1 5© IRC REEK C R > FIN33 15) =7THEMMX C -J —X .. I —2 > = 
© : ROKE54276, 33 = POKE54273, I*2+J*2 
20 1 6© CX C JT — 7 , I —2 > -AB8 C C _T-+ I > RND 1) + 1 

2© 161 OX C J— 7 ^ I —2 > =RBS C C -J-*- I > AMD 1 > -+ 1 

2© 1 62 RX C JT—7 ^ I —2 > =RB3 C C J/4+ I /4 > RMD 11) -*-3 

2© 1 63 LX C JT — 7 j. I —2 >-RES C C J/4+ I /4 > RMD 11) -4-3 

2©164 IRC REEK C R > RMD15 > =7THENNB=NE+1 : POKE 
R ^ RX C J — ~F s I —2 > = 00X02© 1 7*0 
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2© 1 69 POKER ^ © - GX < LT—17 I —2 > =© 

2© 1 17© NEXT = NEXT 

20175 PR I NT " -S3MIHI253'' TRB < 3 > " SSTTt'OU RR 

E HERE® 

2© 1 30 POKE532S 1.-3: RETURN 
21000 

21001 REM PRINT TITLE 

21002 = 

21010 PR I NT " ra" = POKE53281 .. 1 : POKE532S0, 3 = P 
OKE54276/33 

2 1 020 PR I NT " '' TRB < 1 5 > ” r^IRZEMRSTER 

2 1 ©30 PR I NT " .BSlEqsiEQ" TRB < 1 3 > " ■£ V ** 

2 1 0-4© PR I NT " W* TRE < 12> ’"■II GOR TULCH I NSKV " 
2105© PRINT ,, miBI»JM«" , TRE<5> " 33K C > 1334 FRNF 

RRE HOUSE, INC-" 

21060 POKE54276. © = FOR1 = 1TO1©0© : NEXT = POKE 

542 r 6,33 

2 1 070 FOR 1 = 1 TO 1 0© = POKE5323 1 ^ RND (8^-15 PO 
KE54273 -• RND < 3 > *20+ 1 ©0 = NEXT 

2103© POKE54276© : POKE54273, 2© = RETURN 

22000 : 

22001 REM PRINT GRMES MENU 

22002 = 

2201© POKE53231,1 

22© 1 1 PR I NT ” r3^eg^OOeg»^^BiBiKliViBiViHi»BirdMRZ;EMR3 
TER GRMES" • PRINT = PRINT 

2202© PRINT** 531 > PRINT THE FLOO 

RS" 

2203© PRINT** SJ£2> FINE R TRERSUR 

E " 

2204© PR I NT = PR I NT = RR I NT ** MiilliiiPBiENTER 
V OUR CHOICE" 

2205© GETG$ = I FG$<> " 1 " RNDG$0 ** 2 ” THEN22050 
22055 GOSUE5500© 

2203© PR I NT = PR I NT = PR I NT "* *mm»V ■ I NPUT ** BEN 
TER MAZE COMPLEXITV <0—20© > ";CM:CM~CM#20 

22031 IFCM<10THENCM=10 

22032 IFCM>4000THENCM=4000 
22070 TM=1E3 

22080 RETURN 

40000 

40001 REM GRME OVER 

40U02 : 

4©0©5 POKE133,© 

400 10 POKE53231 © : POKE53280, 1 

4002© POKE54276^ 33 = FOR1 = 19TO2408TEP7 : FOR 

J=0TO 1 ©STEF* 1 © - POKE54273 ^ I -*rj 
4002 1 I FG$<> ** 2 ** THEN40023 

40025 L= 1 ©24-I- I NT < RND < © > *24 > #4©+- I NT < RND cl Q 
>*25> 

40023 POKEL ^ 33-+-1 23 = POKE55233— 1 024+ L .. 17 
40027 L=1024+INT <RND<3 >*24>*40+INT C RNE C 3 
> #25 > 

40023 POKEL -• 33+ 1 23 - FOKE5523S— 1 024+ L ^ 17 
40023 POKE53280 .. RNE < © > # 1 5+ 1 : NEXT = NEXT 

40030 PR I NT *" §sgDnjmD&^ s * TRE < 3© > " alSC 

ORE " 

40040 IFG$=" 1 "THENSC=INT C NV*C3/20 — TIX10© 
>:IFNV=NETHENSC=SC+C3 

4005© I FG$= *' 2 *’ THENSC=C3*3 — I NT CTI/1 ©© > 
40055 PRINTTRE< 3© > SC 
40©3© POKE54276,© 

400170 GETfl$ : I FR$= " " THEN40070 

4©03© CLR•GOSUB55000■GOSUB22000:GOSUE20© 
©G:ONVRL<G$>GOTO2000,3000 
43337 : 

43333 REM SOUND INITIALIZATION 

43333 

50©©© FORI =54272T054233 : POKE I 0 : NEXT 
50© 1 © POKE54233 ..15 = POKE54277 .. 33 : POKE5427 
©^ 24© - POKE5427S, © = POKE54273, 2© : RETURN 
55©0© : 

550©1 REM SOUND R EEEP 

55002 : 

55© 1 © POKE54273 33 = POKE54273 .. 2© : FOR 1 = 1 TO 

7"© : NEXT : POKE5427S, © * RETURN 
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Games Disk for 
FANFARE HOUSE: 

ARCADE GAMES FOR THE C64 

ISBN 0-03-003664-X 


CBS Educational & Professional Publishing 
HRW 383 Madison Ave., New York, NY 10017 





















ARCADE GAMES 



ISBN 0-03-0D1D4T-7 
RET:11A4:Q03545:50 


FOR THE 
COMMODORE 64 

Fanfare House, Inc. 


While most other books promise you 
hours of fun on your Commodore 64, 
here’s a book/disk package that 
promises you years... 

Play all 15 games or select just a few — 
you can change the rules in scores of 
ways — creating new games for years to 
come! 

Whatever type of game you play — 
adventure, “space monsters,” war 
Igames, or swords and sorcery — you 
pan make them harder or easier; 
change the scoring mechanism; or 
modify the sprite characters. 

•f 

'All the games are coupled with 
individual programmer’s notes to help 
beginners and pros leafn each game, 
and programming hints to show quick 
methods and fast shortcuts. 


DISK INSIDE! Includes 
15 dynamite arcade 
games that you can 
turn into 100’s more. 




